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IDENT IF ICATION 


PRODUCT CODE: AC-F602B-MC 

PRODUCT NAME: CJKDFBO 11/24 OPTIONS DIAGNOSTIC 
PRODUCT DATE: DEC-84 

MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT 7 SUBJECT TO CHANGE WITHOUT NOTICE 
BE CONSTRUED AS A COMMITMENT BY DIGITAL CORPORATION. 


NOT 
OIGITA EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR IN THIS DOCUMENT. 








NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF SOFTWARE ON 


EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED COMPANIES. 
COPYRIGHT (C): 1981,1984 BY DIGITAL EQUIPMENT CORPORATION 
THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DEC TAPE DEC/X11 
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FIRST RELEASE OF DIAGNOSTIC 
THIS REVISION WAS MADE SINCE THE 
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SEQ 0003 


1.0 GENERAL PROGRAM INFORMATION 


1.1 ABSTRACT 


This em tests both seriel line wnits (SLU's) end the line time 
clock (L1C) on the M7135 module. Its main purpose is to vide scope 
looping for repeir personnel. The program detects from 85-958 of all 
stuck-aet-O, stuck-et-1 feults. Error type-outs identify e function 
being done or e function thet feiled and to whet os rtion of 
the boerd it failed on (i.e... tried to set bit 6 on CSR of SLU1L). 
This progrem is besicelly e rewrite of the DL11-W diagnostic and 
therefore is written in MACRO-11 using the SYSMAC mecro package. It 
is compatible with ell existing menufaecturing and field service auto- 


mated test systems. 





1.2 SYSTEM REQUIREMENTS 
A. HARDWARE REQUIREMENTS 


- 11/24 CPU Module 
- Minieum 8K of memory 
- Turn eround jumper installed on SLU2 


8. SOFTWARE ENVIRONMENTS 
- XXDP Stand-a.~ne 
. a Chain Mode 


- ACT 
- SLIDE 


1.3 RELATED DOCUMENTS AND STANDARDS 


- Diagnostic Engineering Functional Specification for 11/24 
Board Options Test 
BGI - 79-004 -00-U 


- KDF11-UA (M7133) Module Specification Fev. 0. 
25-August-78 Bill Bernstein 


- Standard APT System to PDP-11 Diagnostic Interface Rev. 15 
16-February-76 APT System Group 


- Diagnostic Engineering Standerds and Conventions 
175-003- -02 
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SEQ 0004 


1.4 PREREQUISITE DIAGNOSTICS 


This program essumes the correct operet on of the CPU instruction set. 
This is to be verified by either: 


CUKDBXX DCF11-AA CPU Diagnostic 
or 
CUKDEXX F1l Quick Test 


If an end pess message is received from CUKDEXK there is no need to 
run this diegnostic beceuse all devices heave beer fully tested. 


1.5 ASSUMPTIONS 


It is eseumed thet the console device thet is connected to SLU1 ‘s op- 
erating correctly. If the terminel is not operating correctly false 
indicetions can be expected. 


2.0 OPERATING INSTRUCTIONS 


2.1 LOADING AND STARTING PROCEDURES 
Use standard procedure for PDP-11 absolute binary formatted tapes. 


2.1.1 STARTING PROCEDURE - 


Loed tn register with setting (Software Switch Register Locea- 
tion * 


A. START AT 200. 
After checking the geno ae the progres will print its 
identification and anon the number of devices under test 
(number is octel). PASS" is printed after a full pass 
hes been meade on all devices under test. 


B. START AT 204. seeeNOTEsese 
The “ECHO” test will be executed. An “*” is printed at the 
beginning of the test. The echo test reads e —— from 
be: he gr writes that cheracter to the terminel, end re- 
error flege set in the receiver buffer. A 
CONTROL. ~ 2 (tC) halts the test end ot “STOP” at the termi - 
nel continuing resterts the ECHO t 


C. START AT 210. eseaNOTE sees 


5EQ 9005 


The terminel output test will be executed. Depressing any 
chereacter eat the termine] halts the test. Continuing res- 
terts the test. The test outputs 52 characters on e line and 


repeets the petterrn every three lines. The pattern is as 


follows (OCTAL code O40 --> 377): 


(OCTAL CODE) 
'” $9’ ( Jeo, -./0123456789:;<=>? (040 --> 077 
BABCDEF GHI UKLMNOPORS TUVWXYZ([ ) (100 --> 137) 


‘ abcdefghi jk lanoparstuvwxyz (140 --> 177) [LOWER CASE 
ALPHA } 


This bottom line could be the following if the terminal does 
not have lower cease: 


BABCDEF GHI JKLMNOPORS TUVWXYZ[ (UPPER CASE ALPHA) 


2.2 PROGRAM OPTIONS 


BIT15 - HALT ON ERROR 
BIT14 - SCOPE LOOP 
BIT13 - INHIBIT ERROR TYPEOUT 
BITi2 - UNUSED 
BITi1 - UNUSED 
BIT10 - INHIBIT ERROR FLAGS TEST 
BITOS - LOOP ON ERROR 
BITOS - UNUSED 
BITO7 - DISABLE SLU2 DATA TEST 
BITOS6 - INHIBIT LTC TESTS 
BITOS - INHIBIT ALL SLU TESTS (BOTH SLUS) 
BITO4 - INHIBIT SLU1 TESTING 
BITOS - INHIBIT SLU2 TESTING 
B8ITO2 - UNUSED 
BITO1 - UNUSED 
BITOO - UNUSED 
Built into the em is the ability to dynamicelly change con - 


tents of the twere switch as i during execution. to 4 do this 
| the operetor must type e “CNTL G” 
held down at the same time). This is processed et key times during 
the program (i.e. on errors, in between each test). A problem can 
eccur since the om may be testing the SLU connected to the con- 
sole device and have suU’ in maintenance mode. If this happens it 
should not ceuse an error but the “CNTL G" may be lost. so if the pro- 
gram does not respond to the first “CNTL Ge ty type ea few more until the 
response is received. When the "CNIL G” is received the program will 
respond with: 


SWR = XXXXXX NEW = 


SEQ 0006 


a wee | 


i | 


where XXKXKX is equal to the present switch register contents in 
octel. The operator cen then type; 


1. <CR> if no chenges are to be made. 


2. 6 DIGITS <CR> to represent in octel the new switch register 


setting. 


3. CONTROL-U if the operetor makes an error while inputting the 
new switch register setting. 


2.3 EXECUTION TIMES 


1ST PASS RUNTIMEC WORST CASE)............--46. 1S SECONDS 

| RGRMRREST VEST TI. wc cccccccvccccswevccsceces 12.5 SECONDS 
ADDITIONAL RUN TIMECEXTRA UNITS)............ NONE 
LGREREST PRES TI. cnc ccc crccscewscsscesccess 1S SECONDS 


3.0 ERROR INFORMATION 


3.1 ERROR REPORTING PROCEDURES 


If a routine fails and the inhibit errer ee (BIT13) of the SWR is 
not set. ea printout results in the form 


“(SOME ASCII MESSAGE)” 
TEST ERR PC RCSR [ANY APPLICABLE DATA HEADINGS] 
XXXMMK  MMMXMK XMXXXXX [ANY APPLICABLE DATA) 


NOTE: “RCSR” IS DEPENDENT ON THE "or oa THEREF ORE 
COULD BE TCSR, RBUF, TBUR, OR L 


where “XXXXXX" is an octel number. 


This error printout occurs provided the error thet exists would not 
hinder the t t. In cases where it is not possible to print an 
error message fatel console tranemitter failures), ea helt 
ceurs. (See ene tan 3.2 for error helt information. ) 


awe —- 


SEQ 0007 


NOTE 


For software switch operetion, the 
Switch ister cen be hanged by typing 

e CONTROL -G at the console duri error 
ori itnouts. After continuing from the 
error helt the old SUR contents is dis- 
played and the new contents cen be en- 
tered. If error helts ere disabled, the 
CONTROL-G response occurs immediately 
following the typeout. 


3.2 ERROR HALTS 


There are 5 errors in this program thet ceuse a halt. These errors 
ere in tests 1, 2. 3, Fe 


TEST 1 ERROR - Access to SLU] trenemitter CSR cause time-out trap. 
This problem will probebly cause an inability of tine 
MICRO-ODT to run. 


TEST 2 ERROR - Access to SLIJ1 geet tae date buffer caused time-out 
trap This problem will probeb]ly cause an inability of 
the e MICRO- OOT to run. 


TEST 3 ERROR - The first error is thet DONE did not cleer when the 
tranemitter buffer was filled as it should. 


The second error indicates that DONE did not reset in a 
reasonable time after the date buffer was filled, indi - 
cating thet the cherecter was never transmitted. This 
poy My MICRO-ODT to not run or garbled output from 


TEST 7 ERROR - This error indicates that the SLU cannot be taken out 


of maintenance mode. MICRO-COT should be uneffectec by 
this error. 


4.0 PERFORMANCE AND PROGRESS REPORTS 
The only report from this program other than error reports is the end 
pess message. It is in the form: 
END PASS @XXXXX 
Where XXXXX is the decimal number of end of passes completed. 


SEQ 0008 


ee Ge ee ee 


J] 


5.0 DEVICE INFORMATION TASLES 
SLU1 RCSR 
15 7” ae en a ee a oe aE! ee ee UE 


I ie I 
eS Pt oT, or 
. ¥ 
tS CEE eee I 
RECEIVER INTERRUPT E'NABLE ---------------- 
SLU1 RBUF 
ee ee ee oe oe oe ee ee ae ae oo oe 
[-f.s.f 3 oe SS SS ae RE ie ee ae 
at = I 
a Ss a I 
/epmorn- I I Y I 
OVERRUN --- I I I 
FRAME ae 3 I 
RECEIVE PARITY ---- t 
ERROR I 
| RECEIVED DATA BITS (8) -------------------------------- 
SLU1 XCSR 
S. = . 2 oS ie we ae oe oe a. Peet ce 
I Se ey 3 I 
I I I 
| a I 
TRANSMITTER READY ----------------- I : 
TRANSMITTER INTERRUPT ENABLE ---------- I 
| SEE, a8 8 once pobes socnwnsices segyeecawenss 


A A 


SEQ 0009 


eee 


SEQ 0010 
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LTC CSR 
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SLU2 RCSR 


RECEIVER DONE --------------------- 
| INTERRUPT ENABLE ---------------------- 


| SLU2 RBUF 
- we te ee ee. FF 6. B. 23: Sh @ 


i el 


| FRAME ERROR 

| RECEIVER PARITY -- 
ERROR 
RECEIVER DATA BITS (8) ------------------------------ 


SLU2 XCSR 
$14 13 12 1110986 76S 4&8 21 0 
pts go ae “Ee Ga Se :.« 
eR ee Soke no fg 2. a : 
7 I 
TRANSMITTER DONE ---------------------- I : 
Ce cncctdexentsarcrcenuaginga I 
a gee cupbtbaeitanes tases dnpadenthecknamibdenmiensyenn 
 $LU2 xBUF 
| eS . | eo ee ae oe a oe a 
"ee oe ee a. eg 
I 
I 


6.0 PROGRAM DESCRIPTION 


6.1 PROGRAM EXECUTION CHARACTERISTICS 


| THIS PROGRAM TESTS ALL THE SELECTED DEVICES AS A SINGLE IT 
TERS CAN BE ACCESSED, THE WAITEABLE BITS 
ALL THREE DEVICES. IT 
AND FOR DATA RELIABILITY. 
SAME TIME ENABLES 








INT S THI 
WHEN ALL TESTS HAVE BEEN COMPLETED THE END OF PASS MESSAGE IS TYPED. 





6.2 SUBTEST SUMMARIES 


TEST1 TEST ABILITY TO ACCESS SLU1 TRANSMITTER CONTROL AND STATUS 
REGISTER. HALTS IF ACCESS CAUSES TIMEOUT TRAP. 


TEST2 TEST ABILITY TO ie _ TRANSMITTER BUFFER. HALTS IF 
ACCESS CAUSES TIMEOUT T 


TESTS TEST SLUL TRANSMITTER BIT7 (DONE) CLEARS WHEN TRANSMITTER 
BUFFER IS LOADED. THE BUFFER IS LOADED WHICH SHOULD CLEAR 


ae eee eee 


SEQ OO11 


a ee a 


_— — 


TESTS 


TESTS 


TEST6 


TEST? 


TESTI1O 


| TEST121 


TESTI2 


TESTL3 


TEST14 
TESTIS 


| TESTI6 
TEST17-21 SAME AS TEST4-6 BUT FOR SLU2. 


M1 


THE DONE BIT. AFTER IT IS VERIFIED 1HAT “DONE” CLEARS THE 
PROGRAM WAITS TO RECEIVE DONE BACK AFTER THE DATA iS TRANS - 
FERRED OUT OF THE BUFFER. IF a —_— NOT INITIALLY CLEAR 
OR FAILS TO RESET THE PROGRAM HAL 


LHW THAT SLU1 TRANSMITTER BIT7 a. SETS WITH RESET. THE 
TTER BUFFER IS LOADED A CHARACTER, AS SOON AS 


PENDING ON PROGRAM 

THE TIME IS UP AND THEDIATELY CHECKS FOR “DONE”, IF IT IS 
SET THE PROGRAM ASSUMES IT WAS ad BY THE RESET INSTRUCTION. 
THIS ERROR DOES NOT CAUSE A HALT 


TEST w= TO ACCESS SLU1 RECEIVER CONTROL AND STATUS RE- 
— ERROR IS REPORTED IF ACCESS CAUSES A TIMEOUT 


TEST ABILITY TO ACCESS SLU1 RECEIVER BUFFER. AN ERROR IS 
REPORTED IF ACCESS CAUSES A TIMEOUT TRAP. 


TEST THAT SLU1 BIT2 (MAINTENANCE) CAN BE SET AND RESET. 
BECAUSE AN ERROR ON THIS TEST MAY LEAVE THE SLU IN AN UNK- 
NOWN STATE, ERRORS CAUSE THE PROGRAM TO HALT. 


TEST THAT SLU1 TRANSMITTER INTERRUPT ENABLE (BIT6) CAN BE 
SET AND RESET. THIS TEST CHECKS THAT THE BIT CAN BE WRITTEN 
INTO AND READ, CLEARED BY WRITING A ZERO TO IT AND CLEARED 


TEST THAT SLU1 RECEIVER INTERRUPT ENABLE (68116) CAN BE SET 
AND RESET. SAME TEST AS FOR TRANSMITTER INTERRUPT ENABLE. 


TEST THAT SLU1 RECEIVER TEST 7 (DONE) SETS AND CLEARS PROP - 
ERLY. THIS TEST PUTS THE SLU INTO MAINTENANCE MODE AND 
TRANSMITS A CHARACTER. RECEIVER “DONE” SHOULD SET WHEN 
CHARACTER IS RECEIVED. AFTER “DONE” SETS THE PROGRAM AT- 
TEMPTS TO CLEAR IT WITH A “RESET”. 


TEST SLU1 THAT READING RECEIVER BUFFER CLEAR RECEIVER 
“DONE ” A CHARACTER IS TRANSMITTED IN MAINTENANCE MODE, 
WHEN RECEIVER “DONE” SETS THE RECEIVER BUFFER IS READ WHICH 
SHOULD CLEAR DONE. 

SAME AS TEST1 BUT DONE ONSLU2 AND ERROR DOES NOT CAUSE HALT. 
SAME AS TEST2 BUT FOR SLU2 AND ERROR DOES NOT CAUSE HALT. 


SAME AS TESTS BUT FOR SLU2 AND ERROR DOES NOT CAUSE HALT. 


eee - eee ee 


SEQ 0012 


rEST22 
TEST235-26 
TEST27 


TESTSO 


TEST31 


TEST32 


_TESTS3 


—~TEST34 


TES T3S 


TEST 36 


TEST37-42 


rcST43 


TESTA44 


TEST4&S 


N1 


+ 


TEST SLU2 BREAK BIT (BITO) CAN BE SET, CLEARED, AND RESET. 
SAME AS TEST 10-13 BUT FOR Sive. 


TEST ABILITY TO ACCESS LINE CLOCK STATUS REGISTER. ERROR 
REPORTED IF ACCESS CAUSES TIMEOUT TRAP. 


TEST THAT LINE CLOCK INTERRUPT ENABLE (BIT6) CAN BE SET, 
CLEARED, AND “RESET”. 


TEST THAT BIT7 (OONE) OF LINE CLOCK STATUS REGISTER SETS AND 
CAN BE CLEARED. 


UNIQUE INTERNAL ADDRESS TEST. THIS TEST WRITES A BIT INTO 
ONE OF THE DEVICE REGISTERS AND THEN VERIFIES THAT BIT IS 
NOT SET IN ANY OTHER REGISTER. THE TEST IS REPEATED FOR ALL 
THE REGISTERS. 


TEST THAT SLU1 TRANSMITTER INTERRUPTS ONLY WHEN ENABLED. 
THIS TEST CHECKS THAT THE TRANSMITTER ONLY INTERRUPTS WHEN 
ITS INTERRUPT ENABLE BIT IS SET. 


TEST SLU a gg lg ght DO NOT OCCUR WHEN DISABLED. 
THIS TEST CHECKS THE TRANSMITTER DOES NOT INTERRUPT 
ig Be —— PRIORITY IS 7 OR THE INTERRUPT ENABLE BIT 


TEST SLU1 TRANSMITTER FOR DOUBLE INTERRUPTS. THIS TEST 
FIRST CHECKS THAT THE TRANSMITTER CAN INTERRUPT THEN MAKES 
a THAT ONLY ONE INTERRUPT IS REQUESTED FOR EACH SETTING 


TEST THAT SLU1 TRANSMITTER INTERRUPT CLEARS WITH LOADING OF 
TRANSMITTER BUFFER. THIS TEST PUTS THE PROCESSOR AT 7, SETS 
TRANSMITTER INTERRUPT ENABLE AND FILLS THE TRANSMITTER 
BUFFER. WHEN “DONE” SETS THE SLU SHOULD HAVE AN INTERRUPT 
PENDING. THE PROGRAM THEN FILLS THE BUFFER AGAIN WHICH 
SHOULD CLEAR THE INTERRUPT. 


SAME AS TESTS FOR SLU1 RECEIVER INTERRUPTS AS TRANSMITTER 
INTERRUPTS. 


TEST SLU1L THAT RESET CLEARS RECEIVER INTERRUPTS. SET UP FOR 
RECEIVER INTERRUPT PENDING WITH PROCESSOR AT PRIOIRYT 7, 
ISSUE A “RESET” AND DROP PROCESSOR PRIORITY. THE RECEIVER 
SHOULD NOT INTERRUPT. 


TEST SLU] THAT OVERRUN AND ERROR (BITS 14 AND 15) CAN BE 
SET. THIS TEST PUTS THE SLU1 IN MAINTENANCE MODE AND 
TRANSMITS 3 CHARACTERS WITHOUT READING THE RECEIVER BUFFER. 
THIS SHOULD CAUSE BITS 14 AND 15 TO SET. 


TEST SLU] DATA PATH USING MAINTENANCE WRAP AROUND. THIS 


SEQ 0013 


TEST46-57 
TEST60 


TEST61 


TEST62 


TEST65 
TEST64 
TEST6S 
TEST66 


TEST67 


TEST70 


NOTE : 


’ 
3¢ 


TEST TRANSMITS AN INCREMENTING DATA PATTERN AND VERIFIES THE 
CORRECT DATA IS RECEIVED. 


SAME AS TESTS 33-44 EXCEPT FOR SiLU2 INSTEAD OF SiUl 


TEST THAT BREAK TRANSMITS ALL ZEROES. PUT ALL ONES INTO RE- 
CEIVER BUFFER THEN ISSUE A BREAK THE RECEIVER BUFFER SHOULD 
CONTAIN ZEROES. 


TEST THAT FRAMING — (BIT135) CAN BE SET OURING BREAK. 
TRANSMIT A BREAK AND A CHARACTER JUST TO LET US KNOW WHEN TO 


LOOK FOR THE ERROR BIT. WHEN RECEIVER “DONE” SETS BOTH 
BREAK AND CHARACTER SHOULD BE THERE, CHECK FOR BIT 13 IN RE- 
CEIVER STATUS REGISTER. 

TEST SLUG DATA PATH USING WRAP CABLE CONNECTOR. SAME AS 
TEST 45 ON SLU1. 

TEST LINE TIME CLOCK INTERRUPTS PROPERLY. 


TEST LINE TIME CLOCK FOR DOUBLE INTERRUPTS. 


TEST THAT LINE TIME CLOCK INTERRUPT CLEARS WITH RESET. 


TEST THAT LINE TIME CLOCK INTERRUPT CLEARS BY CLEARING 8IT7 
OF LINE CLOCK STATUS REGISTER. 


TEST LINE TIME CLOCK REPEATABLILITY THIS TEST VERIFIES THAT 
THE DOES SAME AMOUNT OF INSTRUCTIONS 








EACH BE PROBLEMS OF S 
THE PROCESSOR AND CLOCK A SMALL DEVIATION IS ALLOWED. 


BLAST TEST. THIS TEST RUNS ALL SELECTED DEVICES SIMA TANE- 
OUSLY IN INTERRUPT . AFTER 60 INTERRUPTS 
CLOCK OR 256 (10) BYTES HAVE BEEN 
EVERYTHING IS SHUT DOWN. THE PROGRAM THEN VER 

INTERRUPTS WERE LOST ON EITHER SLU AND THAT THE DATA TRANS- 
FERRED WAS CORRECT. 





IF RUNNING UNDER THE APT ENVIRNOMENT MANY OF THE ABOVE TESTS ARE 
ONLY EXECUTED DURING FIRST PASS. 


6.3 SPECIAL SUBROUTINE DESCRIPTIONS 


6.3.1 ECHO TEST - 
THIS ROUTINE WILL ECHO ANY CHARACTER TYPED ON EITHER SiUl OR SiU2. 


DEFMAT IS TO THE C 


CONTROL -C. 


ONSOLE DEVICE SLU1. 
TEST CAN BE RESTARTED AFTER HALTING BY JUST CONTINUING. 


6.3.2 TERMINAL OUTPUT TEST - 


mm me ee er ee + 


THE TEST IS HALTED BY TYPING A 


SEQ 0014 


Ce 
THIS ROUTINE WILL OUTPUT ALL WRITEABLE CHARACTERS FOR THE OCTAL CODE 
040 .-> 377. 32 CHARACTERS ARE PRINTED ON EACH LINE. THE PATTERN IS 
REPEATED EVERY THREE | INES. 


7.0 CLISTING 


SEQ 9015 


—-- = 


ET Se NS 
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CUKDFB.Pil 04-JAN-85 11:44 
] 
2 
3 
4 
5 
6 
R 
~ 
10 
ll 
l2 
13 
14 
15 
16 000001 
17 160000 
18 
19 
20 
21 001100 
22 
23 
24 
25 
26 000011 
27 000012 
26 000015 
Pg 000200 
30 177776 
31 
32 177774 
33 177772 
34 177570 
35 177570 
36 
37 
38 000000 
39 000001 
40 000002 
41 000003 
42 000004 
43 000005 
44 000006 
45 000007 
46 000006 
47 000007 
48 
49 
50 000000 
51 000040 
000100 
53 000140 
54 
55 000240 


Ve 
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-TITLE CUKOFBO 11/24 OPTIONS DIAGNOSTIC 
;@COPYRIGHT (C) DEC-84 

s@DIGITAL EQUIPMENT CORP. 

;@MAYNARD, MASS. 01754 


;* 

3* 

s*#THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s@PACKAGE (MAINDEC -11-DZQAC -CS DEC -84. 

$SWR= 160000 3sHALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
-SBTTL BASIC DEFINITIONS 

s*INITIAL ADDRESS OF THE STACK POINTER ee¢ 1100 eee 


STACK= 1100 
-EQUIV EMT, ERROR ssBASIC DEFINITION OF ERROR CALL 
-EQUIV IOT, SCOPE ssBASIC DEFINITION OF SCOPE CALL 


——e DEF INI TIONS 








HT= 1;CODE FOR HORIZONTAL TAB 
LFe 1 33C FOR LINE FEED 
CR= 15 ::CODE FOR CARRIAGE RETURN 





:sCODE FOR CARRIAGE RETURN-LINE FEED 
1 1 PROCESSOR STATUS WORD 


ssSTACK LIMIT REGISTER 
INTERRUP 


b3 T REQUEST REGISTER 
OSWR= 177570 s sMARDWARE SWITCH REGISTER 
DOISP= 177570 ; sHARDWARE DISPLAY REGISTER 


———, PURPOSE REGISTER DEFINITIONS 
: GENERAL 















REGISTER 
aie 33  1GENERAL REGISTER 
R2= s2 REGI 
R3- #3 
Redo eg 
RS= 65 
R6= Bis 
R7= a7 
SP « Be 
PC= 67 
s*PRIORITY LEVEL DEFINITIONS 

® ORITY LEVEL 0 
PRi= 40 ;sPRIORITY LEVEL 1 
PR2= 100 ssPRIORITY LEVEL 2 
PR3= 140 ;sPRIORITY LEVEL 3 
PRA» ssPRIORITY LEVEL 4 
PRS= 240 ;:PRIORITY LEVEL 5 
PR6= 300 ;;PRIORITY LEVEL 6 


mom 


ee | tt ee eee 


SEQ 0016 


CUKDFBO 11/24 OPTIONS DIAGNOSTIC 
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CUKOFB.P11 


000340 


a es eee 
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BASIC DEFINITIONS 


PR7= 


340 ssPRIORITY LEVEL 7 


:@"SWITCH REGISTER” SWITCH DEFINITIONS 
00000 , 


SW1i5= 


1 
40000 


100 


SeREESEEES °° 
eeeeeeeeey 


BIT DEFINITIONS (BITOO TO BIT15) 
00000 


383 


10000 


28 


1000 
100 


10 
4 
BITOS ,BITs 


BITO3,.BITS 
BITO2 ,.BIT2 
BIT01,BIT1 


CUKOFBO 11/24 OPTIONS DIAGNOSTIC 
CUKOFB.P11 


000014 
000016 
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015070 
000340 


000200 

000137 003036 
000137 020106 
000137 020364 


MACY11 30( 1046) 
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BASIC DEFINITIONS 
-EQUIV BITOO,BITO 
a “CPU” TRAP VECTOR a oh 


RRVEC= 4 

RESVEC= 10 
TBITVEC*14 
TRIVEC= 14 
BPTVEC= 14 
IOTVEC= 20 
PWRVEC= 24 
EMTVEC= 30 
TRAPVEC =34 
TKVEC= 60 
TPVEC= 64 
PIRQVEC=240 

ABASE = 


176500 


AVECTi= 300 


AUSWR = 


$TN= 
$SWR= 
BFT= 


.*0 


400 


1 


161000 
000005 


) 
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33TIME OUT AND OTHER ERRORS 

oe aT AND ILLEGAL INSTRUCTIONS 
; , .“ Ly 

+; TRACE TRAP 

: ;BREAKPOINT TRAP (BPT) 

ss INPUT/OUTPUT TRAP CIOT) eeSCOPE es 
:;POWER FAIL 

tie TRAP (EMT) esERRORes 

33 “TRAP” TRAP 

;:1TTY KEYBOARD VECTOR 

33;TTY PRINTER VECTOR 

:s;PROGRAM INTERRUPT REQUEST VECTOR 


;THIS IS THE COMMAND FOR A TRAP 
; THROUGH 14 (BPT TRAP) 


£ s FSSSSSSSOSSSSSSSHSSHSSSSSESSSSSSSSESSHESSESSSESSESSSSSEESSSESESEHSSESESEOE 


UNUSED LOCATIONS FROM 4-776 CONTAIN A ”.+2,BPT” 


TRAPS & INTERRUPPTS 


O CATCH ILLEGAL 
s*LOCATION O CONTAINS O TO CATCH IMPPOPERLY LOADED VECTORS 


7@ALL 

:@SEQUENCE T 

714 

.WORD CATCH 

.WORD 340 

.* 4 

.WORD Oo 

.* 174 
DISPREG:.WORD 0 
SWREG: .WORD 0 

- #200 

JMP START 

JMP ECHO 

JMP OUTTST 


;THE BPT TRAP VECTOR POINTS TO THE 
; ILLEGAL TRAP HANDLER “CATCH” 


300 INTERFACE TEST 
;00 ECHO TEST 
300 OUTPUT TEST TO TERMINAL 


eee ee + es ee See 


SEQ 0014 


CUKDFBO 11/24 a DIAGNOSTIC 


CUKDFB.P11 


JAN-85 11:44 


MACY11 30(1046) O4-JAN-85 11:58 PAGE © 
BASIC DEFINITIONS 


.* 500 
.SBTTL ACT1I1 HOOKS 
TTT TTTITITTTTTTT TUTE TUTTI TTL T TTT LETT TTT TT TTT LE TTT TTT eee T TT eee 
;HOOKS REQUIRED BY ACT11 
$SVPC-. sSAVE PC 
331)SET LOC.46 TO ADDRESS OF SENDAD IN . SE0P 


:s2)SET LOC.S2 TO ZERO 
:3 TORE PC 


. 246 
sENDAD 
.*S32 


. = $SVPC 
.SBTTL APT PARAMETER BLOCK 


3 Fs SFSSSHASSSSSSSSSSSSSSSSSSSESESSSESSSSSSSSSESSESSSSESESSESEE NESSES ESEESEOE 
;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
3 NG A 
.$Xe=, 3:SAVE CURRENT LOCATION 
.224 ~ ISET POWER a TO POINT TO START OF PROGRAM 
200 33FOR APT START UP 
244 ssPOINT TO APT INDIRECT ADDRESS PNTR. 
$APTHDR ;;POINT TO APT HEADER BLOCK 
.=.$X  3;RESET LOCATION COUNTER 
£ Fs SSSSSSHKSSSSSSSSSSSSSSSESSSSSESSSESESSSSEHESEESESSEESOESESESSESEEEEHESEOEED 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


SAPTHD: 
$HIBTS: .WORD 0 
$MBADR: .WORD — 


13TWO HIGH BITS OF 18 BIT MAILBOX ADOR. 
:sADORESS OF APT se - cal 0-15) 


$TSTM: .WORD +sRUN TIM OF LONGEST TES 

$PASTM: .WORD 60 ;3RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

SUNITM: .WORD 55 ssADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
. WORD SETEND-$MAIL/2 ;;LENGTH MAILBOX -ETABLEC WORDS ) 


ee oe eee 


- —— = . 


He 


11:58 PAGE 64 


x 4A 11/24 OPTIONS DIAGNOSTIC MACY11 30(1046) 04-JAN-85 
COMMON TAGS 


CUKDFB.P11 04-JAN-85 11:44 SEQ 0020 
196 .SBTTL COMMON TAGS 
97 
oe 3 J SSSSSSSSSSSSSSESSSSSSSESSSEHESESSESESEHESESEESSASSEHEEEESEESHEEECESES eee 
199 ;#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
200 ;#USED IN THE PROGRAM. 
201 
202 001000 #1000 
203 001000 $CMTAG +;START OF COMMON TAGS 
204 001000 000000 -.WORD 0O 
205 001002 000 $TSTNM: .BYTE 0O ssCONTAINS THE ie NUMBER 
206 001003 000 SERFLG: .BYTE 0O s sCONTAINS ERROR FLAG 
207 001004 900000 SICNT: .WORD 0O ssCONTAINS SUBTEST ITERATION COUNT 
206 001006 000000 $LPADR: .WORD 0 CONTAINS SCOPE LOOP ADDRESS 
209 001010 000000 SLPERR: .WORD 0 
210 001012 000000 SERTTL: .WORD O 
211 001014 000 SITEMB: .BYTE O 
212 001015 001 SERMAX: .BYTE 1 
213 001016 000000 SERRPC: .WORD 0 
214 1020 000000 $GDADR: .WORD 0 
215 001022 900000 $BDADR: .WORD 0 
216 001024 000000 $GDDAT: .WORD 0 
217 001026 000000 $BDDAT: .WORD O DATA 
2186 001030 000000 -WORD O 3 sRESERVED--NOT TO BE USED 
219 001032 000000 WORD O 
220 001054 000 $AUTOB: .BYTE 0 s sAUTOMATIC MODE INDICATOR 
221 001035 000 $INTAG: .BYTE 0O ss INTERRUPT MODE INDICATOR 
222 001036 000000 WORD O 
223 001040 177570 : -WORD OSwR s sADORESS OF SWITCH REGISTER 
224 001042 177570 DISPLAY: .WORD ODISP : sADDRESS OF DISPLAY REGISTER 
225 001044 177560 $TKS: 177560 uiTTY KBD STATUS 
226 001046 177562 $TKB: 177562 TTY KBD BUFFER 
227 001050 177564 $TPS: 177564 Natty PRINTER STATUS REG. ADORESS 
226 001052 177566 $TPB: 177566 
229 001054 000 SNULL: .BYTE O 
230 001055 002 $FILLS: .BYTE 2 
231 001056 012 $FILLC: .BYTE 12 
232 001057 000 $TPFLG: .BYTE 0 
233 001060 000000 $TMPO: .WORD 0O 
234 001062 000000 $TMP1: .WORD O 
235 001064 000000 sTMP2: .WORD 0 
236 001066 000000 $TMPS: .WORD 0 
237 001070 000000 sTMP4: .WORD O 
238 001072 000000 sESCAPE : 0 
239 001074 077 $QUES: .ASCII /?/ 
240 001075 015 $CRLF: .ASCII <15> 
241 001076 000012 $LF: -ASCIZ <1l2> 
242 5 SSSSEAEESEESHESEEERESEESRESSHEHEESSERORSSSEKEHRESESRARESARESEEEE 
os .SBTTL APT MAILBOX -ETABLE 
= MrTiiiiiiiiiiiitititiiitiitiit iii iti ii iitiitirtitiitititititii ity) 
.EVE 
247 001100 $MAIL : 3;APT MAILBOX 
246 001100 000000 $MSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
249 001102 000000 $FATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
250 001104 000000 $TESTN: .WORD ATESTN ;;T NUMBER 
251 001106 000000 $PASS: .WORD APASS 3:PASS COUNT 


—— ee ee ee ee ee 
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APT MAILBOX-ETABLE 
$DEVCT: .WORD #ADEVCT ;;DEVICE COUNT 
$UNIT: .WORD AUNIT 33170 UNIT NUMBER 
$MSGAD: .WORD #AMSGAD ;;MESSAGE ADDRESS 
$MSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 
sE TABLE: +3APT ENVIRONMENT TABLE 
SENV: BYTE AENV ; ENVIRONMENT BYTE 
SENVM: .BYTE : sENVIRONMENT MODE BITS 
$SWREG: .WORD ASWREG ;;APT SWITCH REGISTER 
$USWR: .WORD #$AUSWR ;;USER SWITCHES 
$CPUOP: .WORD ACPUOP ;;CPU TYPE,OPTIONS 
;¢ BITS 15- 11*CPU TYPE 
;* 11/0401, he tg G | aatea 11/40=04, 11/4505 
;* 11/7006 , P0Q@=07 
;* BIT 10*REAL TIME CLOCK - 
;* BIT pees Sw ka POINT PROCESSOR 
;* 8 Y MANAGEMENT 
$MAMS1: .BYTE #AMAMS1 
$MTYP1: .BYTE AMTYP1 
;* 
;* 
;* 
3% 
$MADR1: .WORD #AMADR1 SS ,.OLKe1 
3% MEM.LAST ADOR . «3 BYTES. THIS WORD AND LOW OF “TYPE” ABOVE 
.BYTE HIGH ADORESS.M.S. BYTE 
BYTE 
WORD 








H_ADDRESS.M.S.BYTE 
YPE ,BLKO4 
LAST ADORESS ,BLKO4 
T VECTOR@1,BUS PRIORITY¢1 
ss INTERRUPT VECTOR@2BUS PRIORITYO2 
ABASE ;;BASE “yy OF EQUIPMENT UNDER TEST 
ADEVM ;;DEVICE MAP 


ee ee ee ee ee eee 


SEQ 0021 


' 
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291 SBTTL ERROR POINTER TABLE 
92 
<os ;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
ae teTHE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
595 S@LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
596  eNOTEL: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS ($ERRPC). 
597 NOTED; EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
398 
599 - EM +:POINTS TO THE ERROR MESSAGE 
300 - DH :POINTS TO THE DATA HEADER 
301 = DT POINTS TO THE DATA 
302 < OF IPOINTS TO THE DATA FORMAT 
303 
304 
305 001160 SERRTB 
306 
307 001160 SERRTB: 
$08 001160 000020 BLKW 20 ;THIS BLOCK OF 16 LOCATIONS IS HERE TO PACIFY SYSMAC 
311 
312 001220 020510 EMS ;SLU1 TCSR DONE NOT SET WITH RESET 
313 001222 027431 DHS "TEST@ ERR PC TCSR” 
314 001224 030212 DTS ' STESTN, SERRPC.CTCSR 
315 001226 a 
317 001230 EMG ;SLUL RCSR DID NOT RETURN SSYNC 
318 001232 027456 OH6 ;"TEST@ ERR PC RCSR* 
319 001234 030222 OT6 ' STESTN, SERRPC.CRCSR 
320 001256 6 
322 001240 11 EM? ;SLU1 RBUF DID NOT RETURN SSYNC 
323 001242 027503 DH7 S"TEST@ ERR PC RBUF” 
324 001244 030232 DT?  STESTN, SERRPC , CRBUF 
325 001246 000000 0 
327 001250 000004 BLKW 4 ;MORE PACIFICATION 
= 
330 001260 020650 EM11 "CAN NOT SET BIT2 OF SLUI TCSR* 
331 001262 027431 DHS S"TEST@ ERR PC TCSR” 
332 001264 030212 DTS  STESTN, SERRPC.CTCSR 
333 001266 6 
335 001270 000004 BLKW 4 STILL MORE PACIFICATION 
337 
338 001300 020706 EM13 "RESET DID NOT CLEAR BIT2 OF SLU TCSR” 
339 001302 027431 DHS STEST@ ERR PC TCSR” 
340 001304 030212 DTS  STESTN, $ERRPC, CTCSR 
$41 001306 6 
343 001310 020754 EM14 ;"BIT6 OF SLU1 TCSR NOT CLEAR AFTER RESET2 
344 001312 027431 DHS ‘“TEST@ ERR PC TCSR" 
345 001314 030212 OTS ' STESTN, SERRPC.CTCSR 
346 001316 0 


. A = 
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021024 
027431 
030212 
000000 


021072 
027431 
030212 
000000 


021130 
027431 
030212 
000000 


021170 
027431 
030212 
000000 


021236 
027456 
030222 
000000 


021410 
027456 
030222 
000000 


MACY11 30( 1046) 
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EM15 
DHS 
DOTS 
0 
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;"SLU1 XMIT INTERRUPTED WITH PRIORIT: 7 
;"TEST@ ERR PC TCSR” 
S $TESTN, SERRPC ,CTCSR 


;"CAN NOT SET BIT6 OF SLU TCSR” 
;"TEST@ ERR PC TCSR” 
/ STESTN, sERRPC ,CTCSR 


;"CAN NOT CLEAR BIT6 OF SLU1 TCSR” 
;"TEST@ ERR PC TCSR” 
; $TESTN, SERRPC,CTCSR 


;"RESET DID NOT CLEAR BIT6 OF SLU1 TCSR” 
;"TEST® ERR PC TCSR” 
; STESTN, SERRPC ,CTCSR 


;“BIT6 OF SLU1 RCSR NOT CLEAR AFTER RESET” 
;“TEST@ ERR PC RCSR” 
; $TESTN, SERRPC ,CRCSR 


;"SLU1 RCVR INTERRUPT WITH PRIORITY 7” 
;"“TEST@ ERR PC RCSR” 
; $TESTN, SERRPC ,CRCSR 


;“CAN NOT SET BIT6 OF SLU1 RCSR” 
;"TEST@ ERR PC RCSR” 
;* TESTN, SERRPC,CRCSR 


;"CAN NOT CLEAR BIT6 OF SLU] RCSR” 
;"TEST@ ERR PC RCSR” 
;$TESTN, SERRPC .CRCSR 


;“CAN NOT CLEAR BIT6 OF SLU1 RCSR WITH RESET 
;"TEST@ ERR PC RCSR” 
; STESTN, SERRPC , CRCSR 


;"SLU1 RECEIVER DONE NEVER SET” 
;"TEST@® ERR PC RCSR” 
; STESTN, SERRPC ,.CRCSR 


; “RESET DIO NOT CLEAR SLU1 RCVR DONE” 
;“TEST@ ERR PC RCSR” 
; STESTN, sSERRPC ,CRCSR 





L2 
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403 001450 021623 EM30 : "READING SLU1 RBUF 010 NOT CLEAR RCVR DONE’ 

404 001452 027456 Oh ;"TEST@ ERR PC RCSR 

405 001454 030222 OT6 ; $TESTN, SERRPC, CRCSR 

406 001456 0 

408 001460 021675 EM31 ;SLU2 TCSR DID NOT RETURN SSYNC 

409 001462 027431 OHS ;"TEST@ ERR PC TCSR” 

410 001464 030242 OT31 ; STESTN, SERRPC, TCSR 

411 001466 000000 0 

41 

413 001470 021734 EM32 ;SLU2 TBUF DID NOT RETURN SSYNC 

414 001472 027530 DH32 ;"TEST@ ERR PC TBUF” 

415 001474 030252 OT32 ; STESTN, SERRPC, TBUF 

416 001476 000000 0 

41 

418 001500 021773 EM33 :"SLU2 TCSR DONE NOT CLEARED WITH TBUF FULL” 

419 001502 027431 DHS ;"TEST@ ERR PC TCSR” 

420 001504 030242 OT31 ; STESTN, SERRPC, TCSR 

421 001506 000000 0 

423 001510 022045 EM34 :"SLU2 TCSR DONE NOT SET AFTER TRANSMIT” 

424 001512 027431 DHS ;"TEST@ ERR PC TCSR” 

425 001514 030242 DT31 | $TESTN, SERRPC, TCSR 

426 001516 000000 0 

428 001520 022113 EM3S ;"SLU2 TCSR DONE NOT SET WITH RESET” 

429 001522 027431 DHS :;"TEST@ ERR PC TCSR” 

430 001524 030242 OT31 | STESTN, ERRPC , TCSR 

431 001526 000000 ) 

433 001530 022155 EMS6 :"SLU2 RCSR DID NOT RETURN SSYNC” 

434 001532 027456 DH6 ;"TEST@ ERR PC RCSR” 

435 001534 030262 DT36 | STESTN, ERRPC ,RCSR 

436 001536 000000 0 

438 001540 022214 EM37 ;SLU2 RBUF DID NOT RETURN SSYNC” 

439 001542 027503 DH7 ;"TEST@ ERR PC RBUF” 

440 001544 030272 DT37 S$TESTN, ERRPC ,RBUF 

a4 001546 0 

443 001550 3 EM40 :"BITO OF SLU2 TCSR NOT CLEAR AFTER RESET” 

444 001552 027431 DH5 :"TEST@ ERR PC TCSR 

445 001554 030242 OT31 ; STESTN, SERRPC, TCSR 

446 001556 000000 0 

448 001560 022323 EM41 :"CAN NOT SET BITO OF SLU2 TCSR” 

449 001562 027431 OHS ;"TEST@ ERR PC TCSR 

450 001564 030242 OT31 : STESTN, $ERRPC, TCSR 

431 001566 0 

453 001570 022361 EM42 :"CAN NOT CLEAR BITO OF SLU2 TCSR” 

454 001572 027431 OHS :"TEST@ ERR PC TCSR 

455 001574 030242 OT31 : $TESTN, SERRPC, TCSR 

436 001576 0 

458 001600 022421 EM43 ; "RESET DID NOT CLEAR BITO OF SLU2 TCSR” 
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CUKDFB.P11 04-JAN-85 1 ERROR POINTER TABLE SEQ 0025 
459 001602 027451 DHS ;"TEST@ ERR PC TCSR 
460 901604 030242 OT31 ; $TESTN, SERRPC,TCSR 
Pr 001606 000000 0 
463 001610 022467 EM44 3 "BIT6 OF SLU2 TCSR NOT CLEAR AFTER RESET2 
464 001612 027431 DHS ;"TEST@ ERR PC TCSR 
465 001614 030242 DT31 ; $TESTN, SERRPC, TCSR 
— 001616 900000 0 
466 001620 022537 EM45 ;"SLU2 XMIT INTERRUPTED WITH PRIORITY 7” 
469 001622 027431 DHS ;"TEST@ ERR PC TCSR 
470 001624 030242 OT31 ; $TESTN, SERRPC, TCSR 
pee. 001626 000000 0 
4 
473 001650 022605 EM46 ;"CAN NOT SET BIT6 OF SLU2 TCSR” 
474 001632 027431 DHS ;"TEST@® ERR PC TCSR 
475 001634 030242 OT31 ; $TESTN, SERRPC, TCSR 
pd 001636 000000 0 
476 001640 022645 EM47 ;"CAN NOT CLEAR BIT6 OF SLU2 TCSR” 
479 001642 027431 DHS ;"TEST@ ERR PC TCSR 
460 001644 030242 OT31 ; STESTN, SERRPC, TCSR 
Ps 001646 000000 0 
463 001650 022705 EMSO ; “RESET DID NOT CLEAR BIT6 OF SLU2 TCSR” 
484 001652 0274351 DHS ;"TEST@ ERR PC TCSR 
485 001654 050242 DT31 ; STESTN, SERRPC , TCSR 
ps 001656 000000 0 
466 001660 022751 EMS1 ;"8IT6 OF SLU2 RCSR NOT CLEAR AFTER RESET” 
489 001662 027456 DH6 ;"TEST@ ERR PC RCSR” 
490 001664 050262 DT36 : STESTN, ERRPC .RCSR 
pos 001666 000000 0 
493 001670 023021 EMS2 ;"SLU2 RCVR INTERRUPT WITH PRIORITY 7” 
494 001672 027456 DH6 ;"TEST@ ERR PC RCSR” 
495 001674 030262 OT36 i $TESTN, ERRPC .RCSR 
pe 001676 000000 0 
496 001700 023065 EmMS3 ;"CAN NOT SET BIT6 OF SiLU2 RCSR” 
499 001702 027456 DH6 ;“TEST®@ ERR PC RCSR“ 
S00 001704 030262 DT36 ;STESTN, ERRPC ,RCSR 
ao 001706 000000 0 
303 001710 023123 EMS4 ;“CAN NOT CLEAR BIT6 OF SiLU2 RCSR” 
504 001712 027456 DH6 ;“TEST@ ERR PC RCSR” 
SOS 001714 030262 DT36 ; STESTN, ERRPC ,RCSR 
a 001716 000000 0 
508 001720 023163 EMSS ;"CAN NOT CLEAR BIT6 OF SLU2 RCSR WITH RESET 
S09 001722 027456 DH6 “TESTO ERR PC RCSR” 
510 001724 030262 D0T36 ; $TESTN, ERRPC ,RCSR 
= 001726 C00000 0 
513 001730 023236 EMS6 +"SLU2 RECEIVER DONE NEVER SET" 
514 001732 027456 DH6 ;"TEST@ ERR PC RCSR" 


i cn er ee eee - 
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001734 
001736 


001740 
001742 
001744 
001746 


030262 
000000 


023275 
027456 
030262 
000000 


023336 
027456 
030262 
000000 


023410 
027555 
030302 
000000 


023441 
027555 
030302 
000000 


023503 
027555 
030302 
000000 


023541 
027555 
030302 
000000 


023571 
027555 
030302 
000000 


023623 
027555 
030302 
000000 


023663 
027555 
630302 
000000 


023723 
027555 
030302 
000000 


023755 
027555 
030302 
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; $TESTN,ERRPC ,RCSR 


; "RESET OID NOT CLEAR SLU2 RCVR DONE 
;"TEST@ ERR PC RCSR” 
; $STESTN, ERRPC ,RCSR 


; "READING SLU2 RBUF DID NOT CLEAR RCVR DONE” 
;"TEST@ ERR PC RCSR” 
; $TESTN, ERRPC ,RCSR 


;LKS DID NOT RETURN SSYNC 
;"TEST@® ERR PC LKS” 
; $STESTN,ERRPC,LKS 


;"BIT6 OF LKS NOT CLEAR AFTER RESET” 
;"TEST@ ERR PC LKS” 
; $STESTN, $ERRPC,LKS 


;"LKS INTERRUPT WITH PRIORITY 7” 
;"“TEST® ERR PC LKS” 
; $TESTN, $ERRPC,LKS 


;"“CAN NOT SET BIT6 OF LKS” 
;"TEST@ ERR PC LKS” 
; $TESTN, SERRPC,.LKS 


;"CAN NOT CLEAR BIT6 OF LKS” 
;“TEST@ ERR PC LKS” 
; $TESTN, $ERRPC,LKS 


; “RESET OID NOT CLEAR BIT6 OF LKS” 
;"TEST@ ERR PC LKS” 
; $TESTN, $ERRPC,.LKS 


;"BIT? OF LKS NOT SET AFTER RESET2 
;"TEST@ ERR PC LKS” 
; $STESTN, SERRPC,LKS 


;"CAN NOT CLEAR BIT? OF LKS” 
;"TEST@ ERR PC LKS” 
; $TESTN, SERRPC,LKS 


;“BIT7 OF LKS DOES NOT SET” 
;"TEST@ ERR PC LKS” 
; $TESTN, SERRPC,LKS 


ee ee eee —--= <= —_—— 


SEQ 0026 


Sititittite teres tite tt tt 24 
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sWRITING TO ONE INTERNAL ADORESS Ay A ANO THER 
;"TEST@ ERR PC GOOD BAD GODATA BDDATA 
; STESTN, SERRPC , $GDADR , SBDADR , SGDDAT , 88D0AT 


;THE LAST IN A LONG LINE OF PACIFICATION 


:“SLU1L XMIT INTERRUPTS WHEN DISABLED’ 
;"TEST@ ERR PC TCSR” 
: $TESTN, SERRPC ,CTCSR 


:"SLU1 XMIT DIO NOT INTERRUPT” 
;"“TEST@ ERR PC TCSR” 
; $STESTN, SERRPC ,CTCSR 


:“SLU1 XMIT INTERRUPT AT PRIORITY 7” 
s“TEST@ ERR PC TCSR” 
;STESTN, SERRPC .CTCSR 


s"SLU1 XMIT INTERRUPTS WITH ENABLE CLEAR” 
;“TEST@ ERR PC TCSR” 
; STESTN, sSERRPC .CTCSR 


3"SLU1 XMIT DID NOT INTERRUPT” 
;"“TEST@ ERR PC TCSR” 
:$TESTN, SERRPC .CTCSR 


s"SLU1 XMIT RE-INTERRUPTED” 
s“TEST@ ERR PC TCSR” 
1 $TESTN, SERRPC .CTCSR 


"LOADING SLU1 TBUF DID NOT CLEAR INTERRUPT” 
:“TEST@ ERR PC TCSR” 
: STESTN, SERRPC .CTCSR 


;"SLUL RCVR INTERRUPTS WITH ENABLE CLEAR” 
;“TEST@ ERR PC RCSR” 
i $TESTN, sSERRPC ,CRCSR 


:"SLUL RCVR DID NOT INTERRUPT” 
 »vEate, ERR PC RCSR” 


;"SLU1 RCVR INTERRUPTS AT PRIORITY 7” 


we eee - 
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027456 
030222 
000000 


024604 
027456 
030222 
000000 


024665 
027456 
030222 
000000 


024721 
027456 
030222 
000000 


024756 
027456 
030222 
000000 


025030 
027456 
0W222 
000000 


025100 
027456 
030222 
090000 


025133 
027456 
030222 
000000 
025177 


027657 
030330 
000000 


025222 
027431 
030242 
000000 


(" é 
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em ee eee me ee ae +e ees = 


+"TEST@ ERR PC RCSR’ 
; STESTN, SERRPC ,CRCSA 


;"SLUL RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR 
:"TEST@ ERR PC RCSR” 
| STESTN, SERRPC,CRCSR 


;"SLUL RCVR DID NOT INTERRUPT” 
;"TEST@® ERR PC RCSR” 
| STESTN, SERRPC , CRCSR 


+"SLU1 RECEIVER RE- INTERRUPTED” 
s“TEST@ ERR PC RCSR” 
; STESTN, SERRPC ,,CRCSR 


:"SLU1 READING RBUF DID NOT CLEAR INTERRUPT” 
;“TEST@ ERR PC RCSR” 
:STESTN, sSERRPC ,CRCSR 


“RESET DID NOT CLEAR SiU1 RCVR INTERRUPT” 
;"TEST@ ERR PC RCSR” 
SSTESTN, SERRPC .CRCSR 


:"SLU1 ‘OR’ FLAG DID NOT SET” 
:"TEST@ ERR PC RCSR” 
3 $TESTN, SERRPC ,.CRCSR 


+"SLUL ‘ERROR’ NOT SET WITH ‘OR’ FLAG” 
s“TEST@ ERR PC RCSR” 
: STESTN, SERRPC ,CRCSR 


s“DATA COMPARE ERROR” 
:"TEST@ ERR PC CRCSR GOOD 
3: $TESTN, SERRPC ,CRCSR GD .BD 


BAD” 


;"SLU2 XMIT INTERRUPTS WHEN DISABLED” 
;“TEST@ ERR PC TCSR” 
; $STESTN, SERRPC , TCSR 


s“SLU2 XMIT OID NOT INTERRUPT” 
;"TEST@ ERR PC TCSR” 
i STESTN, sERRPC , TCSR 


;"SLU2 XMIT INTERRUPT AT PRIORITY 7” 
+"TEST@ ERR PC TCSR” 


9EQ 0028 


ame wee eae ee — ee + 
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OT31 
e) 


EM121 
DHS 
OT3i 
0 


EM122 
OHS 
OT31 
0 


EM125 
DHS 
OT31 
0 


EM124 
DHS 
OT31 
0 


EM125 
DH6 
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SEQ 9029 
; $TESTN, SERRPC , TCSR 


;"SLU2 XMIT INTERRUPTS WITH ENABLE CLEAR: 
;"TEST@ ERR PC TCSR” 
; STESTN, sERRPC, TCSR 


+"SLU2 XMIT DID NOT INTERRUPT” 
s“TEST@ ERR PC TCSR” 
i STESTN, SERRPC , TCSR 


:“SLU2 XMIT RE- INTERRUPTED” 
;“TEST@® ERR PC TCSR” 
s $STESTN, SERRPC, TCSR 


s"LOADING SLUe TBUF DID NOT CLEAR INTERRUPT” 
s"TEST@ ERR PC TCSR” 
; STESTN, SERRPC, TCSR 


;“SLU2 RCVR INTERRUPTS WITH ENABLE CLEAR” 
>“TEST@ ERR PC RCSR” 
; STESTN, SERRPC ,RCSR 


;"SLU2 RCVR DID NOT INTERRUPT” 
s"TEST@ ERR PC RCSR” 
: STESTN, SERRPC ,RCSR 


;"SLU2 RCVR INTERRUPTS AT PRIORITY 7” 
:“TEST@ ERR ©C RCSR” 
; STESTN, SERRPC .RCSR 


:"SLU2 RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR” 
:"“TEST@ ERR PC RCSR” 
; STESTN, SERRPC .RCSR 


:“SLU2 RCVR OID NOT INTERRUPT” 
;“TEST@ ERR PC RCSR” 
; STESTN, sSERRPC .RCSR 


:"SLU2 RECEIVER RE- INTERRUPTED“ 
;“TEST@ ERR PC RCSR” 
: $STESTN, SERRPC ,RCSR 


;"SLU2 READING RBUF DID NOT CLEAR INTERRUPT” 
:"TEST@® ERR PC RCSR” 
i STESTN, SERRPC ,RCSR 
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; "RESET DID NOT CLEAR SLU2 RCVR INTERRUPT: 
;"TEST@ ERR PC RCSR' 
i STESTN, sERRPC ,RCSR 


s"SLU2 ‘OR' FLAG DID NOT SET” 
s“TEST@ ERR PC RCSR” 
i STESTN, SERRPC ,RCSR 


s“SLU2 ‘ERROR’ NOT SET WITH ‘OR’ FLAG” 
;"TEST® ERR PC RCSR” 
; STESTN, SERRPC ,RCSR 


;"SLU2 BREAK DID NOT — ALL ZEROES” 
s"TEST@ ERR PC RCSR DAT 
i STESTN, SERRPC ,RCSR, sBD0AT 


;"BREAK DID NOT SET FRAMING ERROR” 
;“TEST@ ERR PC RCSR” 
i STESTN, SERRPC ,RCSR 


;"SLU2 ‘ERROR’ NOT SET WITH ‘FR’ FLAG” 
;“TEST@ ERR PC RCSR” 
;STESTN, SERRPC ,RCSR 


:"DATA COMPARE ERROR WITH CABLE” 
;“TEST@ ERR PC RCSR GOOD BAD” 
3 sTESTN, sSERRPC ~RCSR -GO.80 


:"RTC INTERRUPT AT PRIORITY 7” 
;"TEST@ ERR PC LKS” 
1 STESTN, SERRPC .LKS 


;"RTC INTERRUPTS WHEN DISABLED” 
;"“TEST@ ERR PC LKS” 
: $TESTN, SERRPC,.LKS 


;“RTC INTERRUPT DID NOT OCCUR” 
;"TEST@ ERR PC LKS” 
; STESTN, SERRPC,LKS 


;"RTC INTERRUPT DID NOT OCCUR” 
;"TEST@ ERR PC LKS" 
; $TESTN, SERRPC,LKS 


ee ee ee ee es - e - 


SEQ 0050 
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026751 
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;“RTC DOUBLE INTERRUPT” 
;"TEST@ ERR PC LKS” 
: $TESTN, SERRPC ,LKS 


;"RESET DID NOT CLEAR RTC INTERRUPT 
;"TEST@ ERR PC LKS” 
 $TESTN, SERRPC,LKS 


;"RTC INTERRUPT OID NOT CLEAR WITH BIT? OF LKS” 
;"TEST@® ERR PC LKS” 
; STESTN, SERRPC,LKS 


;"CLOCK REPEATABILITY ERROR” 
;“TEST@ ERR PC LK 


S CNT1 CNT2” 
;“$STESTN, SERRPC,LKS,FIRST, SECND 


;"SLU1 RECEIVER STATUS ERROR” 
;“TEST@® ERR PC CRCSR GOOD BAD” 
;STESTN, SERRPC ,CRCSR, $GDDTA, $BDDAT 


;SLU2 RECEIVER STATUS ERROR 
;"TESTN ERR PC RCSR GOOD BAD” 
: STESTN, SERRPC ,RCSR, $GDDAT , $BDDAT 


; "INCORRECT RECEIVE _ SLU1 
;"TEST@ ERR PC RCSR TRANS RCV" 
: STESTN, SERRPC ,CRCSR, XMTCT1,RCVCT1 


;"SLU1 DATA COMPARE ERROR IN EXERCISER” 
>"TEST@ ERR PC CRCSR GOOD BAD” 
: STESTN, sERRPC .CRCSR,.GD,.BC 


: "INCORRECT RECEIVE COUNT SLU2 
>“TEST@ ERR PC RCSR TRANS RCV" 
3s STESTN, SERRPC RCSA, XMTCT2,.RCVCT2 


;"SLU2 DATA COMPARE ERROR IN EXERCISER” 
eres. ERR PC RCSR GOOD BAD“ 


;"TRAP CATCHER” 
;"TEST@ ERR PC OLOPC TRAP ADR” 
; $TESTN, SERRPC ,OLDOPC ,BDVECT 


Ee 
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013746 
012737 


ee ee mr ee eee 
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sREGISTER ADORESSES OF INTERNAL ON BOARD OPTIONS 


RCSR : 


WORD 
WORD 
. WORD 
177560 
177562 
177564 
177566 


WORD 


176500 
176502 
176504 
176506 


177546 


(~2 
\ j) = 
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sSLU2 COMMAND/STATUS REGISTER 

 s$LU2 RECEIVER BUFFER 
sSLU2 TRANSMITTER COMMAND/STATUS REGISTER 
:SLU2 TRANSMITTER BUFFER 
sSLU1 RECEIVER COMMAND/STATUS REGISTER 
sSLU1 RECEIVER BUFFER 
3;SLU1 TRANSMITTER COMMAND/STATUS REGISTER 
sSLU1 TRANSMITTER BUFFER 
;LTC COMMAND/STATUS REGISTER 


;VECTOR ADDRESSES FOR ON BOARD OPTIONS 


RVECT: 


#1000, SP 
ssINITIALIZE A FEW VECTORS 


3sSIZE FOR A 
QUAL fi A *-1", 


s3E 





338388 


CLR 


CLR 
CLR 


2 
» 


300 
302 
304 
306 
sRECEIVER INTERRUPT VECTOR 
; TRANSMITTER INTERRUPT VECTOR 
100 
102 
SFATAL ;CLEAR ERROR NO. 
sMSGT YP s;CLEAR MESSAGE TYPE 
$TESTN ;CLEAR TEST NO. 
$DEVM sCLEAR FLAGS INDICATING DEVICES UNDER TEST 


INITIALIZE THE COMMON i AGS 
; sCLEAR on sate TAGS (SCMTAG) AREA 


CLR 


sgggcgggagagaatazg 


33 


@SCNTAG RG 


CRE D+ 


— : sD0NE? 


s3FIRST LOCATION TO BE CLEARED 
33;CLEAR MEMORY LOCATION 


33LO0P BACK IF NO 
;sSETUP THE STACK POINTER 


6¢SCOPE ,@@IOTVEC :;IOT VECTOR FOR SCOPE ROUTINE 


#340 ,-OOIOTVEC+2 ; ;LEVEL 
@SERROR VEC ; 






, OeEnT 
$340, BOEMTVEC +2 LEVEL 7 
TRAP , @é 


. SLPERR ss SETUP 
SWITCH REGISTER. 

SETUP FOR A SOFTWARE 
BOERRVEC, -(SP) 
064% , BOERRVEC 


5 
sEMT am FOR ERROR ROUTINE 
puercs: ——— FOR TRAP CALLS 


;sPOWER FAILURE VECTOR 
{LEVEL 7 


ST 
+sINITIALIZE THE LOOP ADORESS FOR SCOPE 
OOP ADDRESS 


HE L 
IF NOT FOUND OR IT IS 
SWITCH REGISTER. 
::SAVE ERROR VECTOR 
+;SET UP ERROR VECTOR 


SEQ 0032 


emer ee ee ee 


— ee . - = 


—. 11/24 OPTIONS DIAGNOSTIC 
04-JAN-865 11:44 


CUKDFB 


Pll 


0127537 
012737 
022777 
001012 


000403 
012716 
000002 


012737 
012737 
012637 


005037 
132737 


001405 
012737 


177570 
177570 
177777 


003700 


ae ee eee ee 


001040 
001042 
175572 


MACY11 30( 1046) 


H 3 
04 - JAN-85 
TAGS 


INITIALIZE THE COMMON 


67%: 
. SBTTL 


68%: 
69%: 


2s: 
3$: 


4%: 
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+:;SETUP FOR A HARDWARE SWICH REGISTER 
::AND A HARDWARE DISPLAY REGISTER 
:;TRY TO REFERENCE 

; ;BRANCH IF NO TIMEOUT TRAP OCCURRED 


$sAND THE HARDWARE SWR IS NOT = -i 


; ;BRANCH IF NO TIMEOUT 
3;SET UP FOR TRAP RETURN 


ssPOINT TO SOFTWARE SWR 
ssRESTORE ERROR VECTOR 


s;CLEAR PASS COUNT 

1 aTEST USER SIZE UNDER APT 
33 YES,USE NON-APT SWITCH 
33NO,USE APT SWITCH REGISTER 


s;ARE WE RUNNING UNDER XXDP/ACT? 


11 SOF TWARE SWITCH REG SELECTED? 
$3 
13GET SOFT-SWR SETTINGS 


33SET AUTO-MODE INDICATOR 


sIS SiUl TO BE TESTED 

sIF EITHER BIT IS SET THEN DON’T TEST IT 
sSET DEVICE FLAG TO TEST SLUI1 

:IS SLU2 TO BE TESTED 

sIF EITHER BIT IS SET THEN DON'T TEST IT 
SSET DEVICE FLAG TO TEST SLU2 

11S LTC TO BE TESTED 

sIF BIT IS SET THEN DON'T TEST IT. 

:SET OEVICE FLAG TO TEST LTC 

;IS SLU1 UNDER TEST 


MOV @OSWR , SWR 

MOV @D0ISP ,OISPLAY 

CMP 4-1, 8SWR 

BNE 66% 

BR 65$ 

MOV 065%, (SP) 

RTI 

MOV @SWREG , SWR 

MOV @DISPREG ,DISPLAY 

MOV (SP )+, B@ERRVEC 

CLR $PASS 

BITB @APTSIZE , SENVM 

BEG 67% 

MOV @$SWREG , SWR 

4 sALUE FOR SOFTWARE SWITCH REGISTER 
TST a 

BNE 

CHMPB SEN, 01 

BEQ $ 

CmP SWR , OSWREG 

BNE 69% 

GTSWR 

BR 69% 

MOVB 01, $AUTOS 

BIT OBIT4:6ITS,@SwR 
BNE 2s 

BIS @BITO, SDEVM 

BIT @68ITS!BITS, SSW 
BNE 3% 

BIS #8IT1, sDEVM 
BIT #8IT6 . BSUR 

BNE 

BIS @6IT2, $DEVM 
BIT #BITO, sDEVM 
BNE TSTl 

JP Id 


sIF YES TEST XMIT REG. BEFORE TYPING TITLE 
;IF NO SKIP TESTS AND TYPE IT NOW 


SEG 00 


~ Se 
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010337 


000001 
000004 
003500 
177306 
016004 


000004 


000003 
000001 


001106 
004726 


177164 
177156 


177152 
177144 


016004 


001104 
000004 


001104 


001104 
001120 


See eee eee ee 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


fF SSSSSSSSSSSSSSSSSESHESSESSSSESESESHSESESSESESSESHESSEAEEEEEEHEEEEEEEEEEE 


TEST ABILITY TO ACCESS SLU1 TCSR 


BF SSSSSSSSSHSSHSSSESSSSSSSSESSSESASSSSSSHSSHEESSESHEEEHEESESEEEESEEEEOE 


;#TEST 1 
TSTl: 


1$: 


2s: 


SCOPE 


01,$TESTN 
RS 
@1$ ,804 


acTCcsr 


2s 
(SP )+,(SP)+ 
PC, SATY4 


R3,804 


3;SET TEST NUMBER IN APT MAIL BOx 
sSAVE TIMEOUT VECTOR 
sSET UP TIMEOUT VECTOR 
sREFERENCE THE XMIT COMMAND/STATUS REG. 
; GO TO END OF TEST 
sRESTIRE SP AFTER TIMEOUT 
ss;ONLY REPORT A FATAL ERROR 
3; THE ERROR NUMBER (FROM APT LIST) 


sRESTORE TIMEOUT VECTOR 


8 Fs SSSSSSSSSESSSSSHSHSHSESSESESSSOESEESEEESSSESESEESSESEHEESEEEEEEESES 


TEST ABILITY TO ACCESS SLU1 TBUF 


;*#TEST 2 


ss SSSSSSSSSSHSSSSHSHSSESSSHEHESSHESESSESESSESEESSESESESESESEKESEHESEEEE 


TsT2 


1$: 


2s: 


2288 


~4 
w 
~ 


32°593 


#2, $TESTN 
804 ,RS 
#1$ ,204 


ac TBUF 


23 
CSP )+,CSP)+ 
PC, SATY4 


R3,804 


33SET TEST NUMBER Zs APT MAIL BOX 


$ T 

sRESTORE SP AFTER TIMEOUT 
ssONLY REPCRT A FATAL ERROR 
3;THE ERROR NUMBER (FROM APT LIST) 


sRESTORE TIMECUT VECiOR 


££ SS SSSSSSSSSSSSSSEOSSSERSSSSSSSHSHESSESHSSSSSSSS LY SESHSESESSESEEESESE 
CLEARS 


;*TEST 


3 


TEST SLU1 TCSR BIT7(DONE) 


WHEN XBUF IS LOADED 


ss SSSSSSSSSSSSSSSSSSESSSSSEHASSHSSSSSSSSSHSSSSSSESSESSSASSESSESSSSEESE 


TST3: 


708: 


03, $TESTN 


1$ 
PC, SATY4 


33SET TEST NUMBER IN APT MAIL BOX 
;ARE WE RUNNING UNDER APT 

:;IF NO THEN DO TEST 

:IS THIS FIRST PASS 

;IF YES THEN DO THIS SERIES OF TESTS 
VIF NO THEN SKIP THIS SERIES OF TESTS 


;LOAD XBUF 
;CHECK DONE 
:8R IF CLEAR 


sFILL SECOND BUFFER, UJECAUSE REFRESH COULD CAUSE 
; FIRST TEST TO FAIL 
;sFILL DOUBLE BUFFER 
sCHECK DONE 
BR IF CLEAR 

1 ¥ REPORT A FATAL ERROR 

;THE ERROR NUMBER (FROM APT LIST) 

;TCSR “DONE " NOT CLEARED WITH TBUF FAL 


mem ee ee - . 


SEQ 0054 


ee 


iZ 
© PS 
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TEST StUi TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED 


CJKOFB.P11 04-JAN-85 11:44 SEQ 0035 
1003 003652 005000 1$: CLR RO ;CLEAR TIMER 
1004 003654 105777 177124 2s: TSTB acTCSR ;CHECK FOR XMIT 
1005 003660 100407 BMI ID , IF SETS, BR TO END OF TEST 
1006 003662 005200 INC RO ; INCREMENT TIMER 
1007 003664 001575 BNE 2s 38R IF TIMER NOT DONE 
1008 3666 004737 016004 JSR PC, SATY4 ;;ONLY REPORT A FATAL ERROR 
1009 003672 000004 6 3;THE ERROR NUMBER (FROM APT LIST) 
1010 003674 HALT 
1011 003676 000416 BR TST4 sBR TO NEXT TEST, AND SKIP THE TYPEOUT THAT FOLLOWS 
1012 s BECAUSE OF THIS FAILURE 
i01 
1014 003700 023737 000042 000046 ID: CMP 8042 , 8046 sUNDER ACT11? 
1015 003706 001412 BEQ 6$ sIF YES, SKIP IDENT. TYPEOUT 
1016 003710 005737 001106 TST $PASS :IS THIS THE FIRST PASS? 
1017 003714 001007 BNE 63 :;IF NOT BR TO NEXT TEST € SKIP THE IDENTIFICATION TYPEOU 
1016 003716 005737 001110 TST sDEVCT :1S THIS THE FIRST SUBPASS? 
1019 7 001004 BNE 6$ ;IF NOT, BRTO NEXT TEST 
1020 003724 104401 TYPE : TYPE PROGRAM INDENTIFICATION 
i021 003726 030176 M1 
1022 003730 104401 TYPE ;TYPE NUMBER OF DEVICES UNDER TEST 
1023 003732 030210 M2 
1024 003734 6$: 
1025 
1026 PETIT IT iti titi i rir rrr irr rir rt itititiiiitist iit itiiiitiitt 
1027 ;*TEST 4 TEST THAT SLU1 TCSR “DONE” SETS WITH RESET 
1028 PoE TIT ITT irri titi titi iititititiiiiitiiiititiiiiii titi titi ititittt) 
1029 003734 TST4: SCOPE 
1030 003736 012737 000004 001104 MOV 04, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
1031 003744 032737 000001 001156 BIT @BITO,868DEVM ;00 THESE TESTS FOR THIS DEVICE? 
1032 003752 001002 BNE 99% :F YES CONTINUE WITH TESTS 
1033 003754 000137 004726 JMP SLU2RT ;IF NO GO TO START OF NEXT SET OF TESTS. 
1034 003760 99$: 
1035 003760 005077 177022 CLR acTBUF sLOAD TRANSMIT BUFFER 
1036 003764 105777 177014 1$: TSTB acTcsr ;WAIT FOR DONE 
1037 003770 100375 1$ 
1038 003772 005077 177010 CLR acTeuF ;LOAD SECOND BUFFER 
1039 003776 NOP 
1040 004000 RESET ;CLEAR DONE WITH RESET 
1041 004002 105777 176776 TST8 acTCcsR ;CHECK FOR DONE SET 
a 004006 100401 BMI TST5 ;BR TO NEXT TEST IF DONE SET 
con 004010 104005 ERROR 5 sTCSR “DONE” DOES NOT SET WITH RESET 
1046 
1047 
1048 § { PPOSCOAAESSEESSEEEEEESSASEOSHSSESSSEESEESEKERESHESERERERECESEEEDE 
1049 ;#TEST 5 TEST ABILITY TO ACCESS SLU1 RCSR 
1050 5 { PRSRASEESESEEESASASEEEEOSAERESSSEEASEEREEESASEEREEHERELEEERODES 
1051 004012 000004 TSTS: SCOPE 
1052 004014 012737 000005 001104 MOV @5,$TESTN +3;SET TEST NUMBER IN APT MAIL BOX 
1053 004022 013703 000004 MOV 864 ,RS ;SAVE TIMEOUT VECTOR 
1054 004026 012737 004042 000004 MOV 01% ,804 ;SET UP TIMEOUT VECTOR 
1055 004034 005777 176740 TST @CRCSR s;ACCESS RCSR 
— 004040 000402 BR 2s ;BR TO END OF TEST 
1058 004042 022626 1$: CMP (SP)+,(SP)-+ ;sRESTORE SP AFTER TIMEOUT 


a 





Ee 


——_ 2 ee 
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004044 
004046 


104006 
010337 


022626 
010337 


000004 
012737 
042777 


000004 


000006 
000004 
004102 
176702 


000010 
000100 


001104 


001104 
176654 
176646 


176626 
176620 


176606 
176600 


176560 
176550 
176540 


001104 
176520 


IK 4 
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15 TEST ABILITY TO ACCESS SLU RCSR 


sCAN NOT ACCESS RCSR 
sRESTORE TIMEOUT VECTOR 


ERROR 6 


£ Fs SSSSSSHSSSSSESSSSOSHASESSSSSASSSESHSSSSEESESSESHSSESSHEESEEEEESEEESEEES 


;*TEST 6 TEST ABILITY TO ACCESS SLU1 RBUF 
Weriiitiitiiiiiitiititttiititiitiifiltitritriiiitiliittiitiittiitt 
TST6: SCOPE 
MOV 06, $TESTN 33;SET TEST NUMBER IN APT MAIL BOX 
MOV 804 RS sSAVE TIMEOUT VECTOR 
MOV 01% ,804 ;SET UP TIMEOUT VECTOR 
TST aCRBUF ;ACCESS RBUF 
AR 2s ;8R TO END OF TEST 
1$: CMP (SP )+,(SP)-+ sRESTORE SP AFTER TIMEOUT 
ERROR 7 ;CAN NOT ACCESS RBUF 
2s: MOV R3,204 sRESTORE TIMEOUT VECTOR 


ss FSSSASSSSSSSSSSSSSSESSHASSHSESSSESSSSESESEEESEESESSESESESEESEEESEEEESEEES 


;*#TEST 7 TEST THAT SLUIL BIT2CMAINT. BIT) CAN BE SET E RESET 
5 § OO8O00000000000000600060060000000066606006600006006000000008000608 
TST?: SCOPE 
MOV @7,$TESTN 33;SET TEST NUMBER IN APT MAIL BOX 
BIC #B8IT2,.a8CTCSR ;MAKE SURE BIT UNDER TEST PS INITIALIZED 
BIT #6IT2,8CTCSR S TEST FOR BIT2 OF TCSR CLEAR 
BEQ i$ ;BR IF CLEAR 
JSR PC, $ATY4 ;;ONLY REPORT A FATAL ERROR 
A 3; THE ERROR NUMBER (FROM APT LIST) 
1%: BIS #6IT2,aCTCSR ;SET BIT2 OF TCSR 
BIT e6IT2,aCTCSR sTEST FOR BIT2 SET 
BNE 2s 38R IF SET 
ERROR il ;BIT2 OF TCSR WILL NOT SET 
2s: BIC @#BIT2,a8CTCSR ;CLEAR BIT2 OF TCSR 
BIT #681T2,@8CTCSR ;TEST BIT2 CLEAR 
BEQ 3% ;B8R IF CLEAR 
JSR PC, sATY4 ;sONLY REPORT A FATAL ERROR 
12 33THE ERROR NUMBER (FROM APT LIST) 
HALT :BITO OF "TCSR WILL NOT CLEAR 
3%: BIS #BIT2,aCTCSR ;SET BIT2 OF TC 
RESET ;CLEAR BIT2 WITH RESET 
BIT ¢68IT2,8CTCSR ;TEST FOR BIT2 CLEAR 
BEG TST10 :IF CLEAR, GO TO NEXT TEST 
BIC oo ;CLEAR BIT2, TO PRINT ERROR 


sRESET DID NOT CLEAR BIT2 OF TCSR 


SS PSSSESSEHESSSHEASSSSESSESSESSSSSESESSSSSESSSSSSHSESESESSKSSOSSSASEHEAEEEE 


;*#TEST 10 TEST THAT SLU BIT6CXMIT INT EN) CAN BE SET € RESET 
| f PRRRESEEEHESSEESSEEHESESERESERESEEESEEREEREEEESEEDEEERESEEROERES 
TST10: SCOPE 
MOV $10, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
BIC #BIT6,ACTCSR ;sMAKE SURE BIT UNDER TEST IS INITIALIZED 


SEG 0036 


LZ 
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TEST THAT SLU1 BIT6(XMIT INT EN) CAN BE SET & RESET 


CUKOFB.P11 04-JAN-8S 11:44 SEQ 0037 
1115 0046264 017703 176536 MOV Q@CTVECT,R3 ;SAVE XMIT VECTOR 
1116 004270 012777 004320 1765530 MOV 01%, @CTVECT ;SET UP INTERRUPT VECTOR FOR ERROR REPORT 
1117 004276 0064737 015056 JSR PC, WRPSW :SET PSW TO PRIORITY=7 
1118 004302 000340 .WORD 340 
1119 004304 032777 000100 176472 BIT oBITS,aCTCSR sTEST BIT6 OF TCSR 
1120 004312 001404 BEQ 2s ;BR IF ZERO 
1121 004314 104014 ERROR 14 
1122 ;BIT6 IN TCSR NOT CLEAR AFTER RESET 
1123 004316 000402 BR 2$ 
1124 
1125 004320 022626 1$: CMP (SP)+,(SP)-+ ;sRESTORE SP AFTER INTERRUPT 
1126 004322 104015 ERROR 15 
1127 sXMIT INTERRUPT OCCURRED PRIO=-7 
1126 
1129 004 052777 000100 176452 23%: BIS #BIT6,aCTCSR ;SET BIT6 OF TCSR 
1130 004332 032777 000100 176444 BIT @B1T6,aCTCSR ;TEST BIT6 OF TCSR 
1 004340 001001 BNE 3$ ;BR, IF SET 
11 
1133 004342 104016 ERROR 16 
4 sCANNOT SET BIT6 OF TCSR 
1 
1136 004344 042777 000100 176432 3%: BIC @61IT6,8CTCSR sCLEAR BIT6 OF TCSR 
1137 004352 032777 000100 176424 BIT @BIT6,aCTCSR ;sTEST BITE OF TCSR 
1138 004360 001401 BEG 4$ ;BR IF CLEAR 
1139 004362 104017 ERROR 17 
ety ;CANNOT CLEAR BIT6 OF TCSR 
1142 004364 4$; 
1143 004364 052777 000100 176412 BIS @BIT6,8CTCSR sSET BIT6 OF TCSR 
1144 004372 RESET sCLEAR BIT6 WITH RESET 
1145 004374 032777 000100 176402 BIT @BIT6,8CTCSR ;sTEST BIT6 OF TCSR 
oes 001401 BEQ S$ ;BR CLEAR 
1148 004404 104020 ERROR 20 
1149 sCANNOT CLEAR BIT6 OF TCSR WITH RESET 
ater 004406 010377 176414 5$: MOV R3,8CTVECT sRESTORE XMIT VECTOR 
1152 
1153 § § O8SS66606800660600600600006660600006000000600606000000000080088008 
1154 s#TEST 11 TEST THAT SLU1 BIT6 OF RCSR CAN BE SET € RESET 
1155 $f SORSESRESHESEREEESESEEEEEEEREREESEESESEESEEEESSSELERSEROZEBEEESES 
1156 004412 TST11: SCOPE 
1157 0046414 012737 000011 001104 MOV $11,¢TESTN 33SET TEST NUMBER IN APT MAIL BOX 
1158 042777 000100 176350 BIC @8IT6, SCRE s MAKE BIT UNDER TEST IS INITIALIZED 
1159 004430 017703 176366 MOV 83 ; SAVE RECEIVE VECTOR 
1160 004434 012777 176360 MOV 61% ,SCRVECT :SET UP INTERRUPT VECTOR FOR ERROR REPORT 
1161 004442 004737 015056 JSR , WRPSW ;SET PSW TO PRIORITY=7 
1162 004446 000 -WORD 340 
1163 004450 032777 000100 176322 BIT @BIT6,@CRCSR :TEST BIT6 OF RCSR 
1164 004456 001404 BEQ 2s 
1165 004460 104021 ERROR 21 
1166 ;BIT6 OF RCSR NOT CLEAR AFTER RESET 
ped 004462 000402 BR 2s 
1169 004464 022626 1$: CMP CSP)+,CSP)-+ sRESTORE SP AFTER INTERRUPT 
1170 004466 104022 ERROR 22 
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TEST THAT SLUl BIT6 OF RCSR CAN BE SET € RESET 


CJUKDFB.P11 04-JAN-85 11:4 SEG 0038 
1171 sRCVR INTERRUPT WITH PRIORITY=-7 
1172 
1173 004470 052777 000100 176302 2%: BIS #BIT6,8CRCSR ;SET BIT6 OF RCSR 
1174 004476 032777 000100 176274 BIT BIT6,aCRCSR ; TEST BIT6 CF RCSR 
1175 004504 001001 BNE 3$ ;BR, IF SET 
1176 
1177 004506 104023 ERROR 23 
1178 ;CANNOT SET BIT6 OF RCSR 
1179 
1180 004510 042777 0C0O100 176262 3%: BIC #BIT6,@CRCSR ;CLEAR BIT6 OF RCSR 
1181 004516 032777 000100 176254 BIT $BIT6,8CRCSR ;TEST BIT6 OF RCSR 
1182 004524 001401 BEQ 4a¢ ;8R, IF CLEAR 
11865 
1184 004526 104024 ERROR 24 
1185 ;CANNOT CLEAR BIT6 OF RCSR 
1186 
1187 004530 4$: 

1188 004530 052777 000100 176242 BIS BITE, @CRCSR ;SET BIT6 OF RCSR 

1189 004536 RESET ;CLEAR BIT6GF RCSR wIiTH RESET 
1190 004540 032777 000100 176232 BIT 6BIT6,8CRCSR ;TEST BIT6 OF RCSR 

Te 004546 001401 BEQ 5$ ;BR, CLEAR 

1 

1193 004550 104025 ERROR 25 

1194 ;CANNOT CLEAR BIT6 OF RCSR WITH RESET 
oar 004552 010377 176244 5$: MOV R3,&CRVECT sRESTORE RECEIVE VECTOR 

11 

1197 

1198 

1199 Peet TTT it Ti rit iitiiitiiittititiititititirittitiitti tit it iit itt ty 
1200 :*TEST 12 TEST THAT SLU1 RCVR DONE (7) SET &€ CLEAR PROPERLY 
1201 Peer irr ti iti titi titi tititiitiiiitiiiit iti iititititititiiititi tT 
1202 004556 TSTi2: SCOPE 

1203 004560 012737 000012 001104 MOV #12, $TESTN 3:SET TEST NUMBER IN APT MAIL BOX 
1204 004566 052777 000004 176210 BIS #681IT2,aCTCSR ; TURN ON INTERNAL MAINTENENCE WRAP AROUND 
1205 004574 CLR RO :;CLEAR TIMER 

1206 004576 005077 176204 CLR acTBUF ;LOAD TRANSMIT BUFFER 

1207 105777 176172 CWOONE: TSTB &@CRCSR sCHECK FOR RECEIVER DONE 

1208 100406 BMI 1% z+ 

1209 004610 005200 INC RO T TIMER, IF NOT DONE 
1210 004612 00i373 BNE CWDONE ) CONTINUE WAIT IF TIME REMAINS 
1211 004614 042777 000004 176162 BIC @BIT2,acTCsR ICLEAR MAINTENANCE BIT 

1212 004622 104026 E 26 

‘saa sRECEIVER DONE NEVER SET 

1215 004624 1$: RESET ;CLEAR DONE WITH RESET 

1216 004626 105777 176146 TST8 @CRCSR ;CHECK FOR DONE CLEAR 

+H 004632 001404 BEQ 2$ 

1219 004634 042777 000004 176142 BIC 6BIT2,aCTCSR ;CLEAR MAINTENANCE BIT 

1220 004642 104027 E e7 

oo ;sRESET DID NOT CLEAR RCVR DONE 
aoe 004644 042777 000004 176126 2%: BIC oBIT2,8CRCSR ;CLEAR MAINTENANCE BIT 

1225 


Sf SSHKSESEASESSESEAESESSESEKSESSSESEHESKASSSESSESSESESSHSSSAEAAKSESSSEKESESSASSS 


i 


ee —_ - 
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000013 001104 


000004 1761li2 


176110 
176076 


176072 


000004 
176056 


176066 


NZ 


oe ae 30(1046) O4-JAN-85 11:58 PAGE 25 
T13 TEST SLU1 THAT RcADING RBUF CLEARS RECEIVER DONE 


;*TEST 13 TEST SLU1 THAT READING RBUF CLEARS RECEIVER DONE 
MeTIIT ITI iii irri it itiiiiriiiiititiiiitiititiiiiiitiiititi tit tiy 
TST13: SCOPE 
MOV #13,$TESTN ;;SET TEST NUMBER IN APT MAIL BOx 
RESET ;CLEAR EVERYTHING 
BIS eBIT2,aCTCSR ;SET MAINTENANCE WRAP 
CLR ac TBUF ;LOAD TRANSMITTER 
1$: Li igs _— ;WAIT FOR RECEIVER CONE 
MOV ACRBUF ,RO s;READ RECEIVE BUFFER 
BIC #BIT2,aCTCSR ;CLEAR MAINTENANCE BIT 
TSTB acRCsR ;CHECK FOR RECEIVE DONE CLEAR 
BEQ TST14 ;BR, IF CLEAR TO NEXT TEST 
ERROR 30 


;READING RBUF DID NOT CLEAR RCVR DONE 


ae eee Se eee 


SEG 0039 


x Ae 11/24 OPTIONS wire 
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CUKDFB . 


Pili 
004726 


04. 


000004 
012737 
032737 
001002 
000137 
013705 


022626 
104031 
910337 


000004 
012737 
013703 
012737 
005777 
000402 


022626 
104032 
010337 





175650 


001104 


0011046 
001120 


04-JAN-65 11:58 PAGE 26 
TEST SLU] THAT READING RBUF CLEARS RECEIVER DONE 


££ FS SSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSHSSSSSHSSSSSSSSSSESHESEHOSELE 


TEST ABILITY TO ACCESS Sive TCSR 


MACYi1 30( 1046) 

T13 

SLUORT : 

;@TEST 14 

TST14: SCOPE 
MOV 
BiT 
BNE 
JP 

99%: 
MOV 
MOV 
TST 
BR 

1%: CMP 
ERROR 

2s: MOV 


014, STESTN 
#6IT1,.@es0EVM 
99% 


LTCRT 
804 ,R3S 


01% ,804 


STCSR 


2s 
CSP )+,(SP)- 
31 


R3 804 


33SET TEST NUMBER IN APT MAIL BOx 

300 THESE TESTS FOR THIS DEVICE? 

iF YES CONTINUE WITH TESTS 

sIF NO GO TO START OF NEXT SET OF TESTS. 


sSAVE TIMEOUT VECTOR 

sSET UP TIMEOUT VECTOR 

sREFERENCE THE XMIT COMMAND/STATUS REG. 
s GO TO END OF TEST 

1RES TORE SP AFTER TIMEOUT 

sXMIT CSR ADDRESS DOES NOT RETURN SSYNC 

:RESTORE TIMEOUT VECTOR 


TEST ABILITY TO ACCESS SiUe TBUF 


#15, $TESTN 
904 ,R3 
1% , 804 
STBUF 

2s 

(SP )+,(SP)-« 
32 

R3, 804 


ssSET TEST NUMBER IN APT MAIL BOX 
sSAVE TIMEOUT VECTOR 

iSET UP TIMEOUT VECTOR 

sREFERENCE THE XMIT BUFFER 

sGO TO END OF TEST 

:RESTORE SP AFTER TIMEOUT 

sXMIT BUFFER ADDRESS DOES NOT REUTRN SSYNC 
;RESTORE TIMEOUT VECTOR 


5 f COROOSSOSEHESESSESEEEESHESSETERESSEEOOEESSESOESEREEEESESEEEEES 
TEST SiUe TCSR BIT7( DONE) CLEARS WHEN XBUF IS LOADED 


£ fF SSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSESSSSSESHESSHSSSSSSEHESHEEHEEEEE 


s*TEST 15 
SCOPE 
MOV 
MOV 
MOV 
TST 
BR 
1%: CMP 
ERROR 
2s: MOV 
;eTEST 16 
TST16: SCOPE 
MOV 
BIT 
BEG 
TST 
BNE 
708: 
CLR 
TST6 
BPL 
H 
TST6 
BPL 
ERROR 
1%: CLR 
2s: TSTB 


016, $TESTN 


33SET TEST NUMBER IN APT MAIL BOX 
H PUNNING UNDER APT 

3IF NO THEN DO TEST 

31S THIS FIRST PASS 

3IF NO THEN SKIP TO NEXT TEST 


sLOAD XBUF 


CLEAR 

COND BUFFER, RECAUSE REFRESH COULD CAUSE 

s FIRST TEST TO FAIL 

“FILL OOUBLE BUFFER 
DONE 


s CHECK 

BR IF CLEAR 

sTCSR “DONE” NOT CLEARED WITH TBUF FULL 
;CLEAR TIMER 

;CHECK FOR XMIT DONE 


_— ow eee 


St. 


004¢ 
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CIKDOFB P11 


100403 


005200 
001575 
104034 


000004 
012737 
013703 
012737 
005777 
000402 


022626 
104036 
010337 


000017 001104 
000001 001120 


001106 
175610 
175602 
175576 


175564 


175526 


001104 


001104 


a 


> age 30( 1046) 04-JAN-85 1:58 PAGE 2 
TEST SLU2 TCSR BIT7(DONE) CLEARS UMEN XBUF IS LOADED SEQ 
BMI TST? ,IF DONE SETS, BR TO NEXT TES? 
INC RO ; INCREMENT TIMER 
BNE 23 1BR IF TIMER NOT DONE 
ERROR 34 :XMIT DONE BIT DOES NOT RESET AFTER TRANSMIT 
££ SSSSSSSSSSHSSSESESSSSSSSSSSSHESSHSSEASSSSESSSESSSHSSSSHSESHSEESEEEEOS 
;eTEST 17 TEST THAT SLU2 TCSR “OONE” SETS WITH RESET 
2s SSSSSSNSSSSSSSSSSSSSAESSSSESSSSSSHSSSSSSSESSSSSSSSSHSSSSEESSSESEEESEEE 
TST17: SCOPE 
MOV 017, $TESTN :3SET TEST NUMBER IN APT MAIL BOx 
BIT @1, @esENV ;ARE WE RUNNING UNDER APT 
BEQ 70$ ;IF NO THEN DO TEST 
TST BOSPASS :IS THIS FIRST PASS 
sl BNE TST20 :IF NO THEN SKIP TO NEXT TEST 
"CLR @TSuF :LOAD TRANSMIT BUFFER 
is: TsT8 ercsR ;WAIT FOR DONE 
cu aTeuF ;LOAD SECOND BUFFER 
RESET ;CLEAR DONE WITH RESET 
TSTB  e@TCSR ;CHECK FOR DONE SET 
BMI TST20 ;8R TO NEXT TEST IF DONE SET 
ERROR 35 :TCSR “DONE” DOES NOT SET WITH RESET 


TEST ABILITY TO ACCESS Sive RC 


s*#TEST 20 

TST20: SCOPE 
MOV 
MOV 
MOV 
TST 
BR 

18: CMP 
ERROR 

2%: MOV 


€20, $TESTN 
804 ,R3 

O15, eate 
aRCSR 

as 

(SP )+,(SP)- 
36 

R3, 304 


33SET TEST NUMBER IN APT MAIL BOx 
:SAVE TIMEOUT VECTOR 

ISET UP TIMEOUT VECTOR 

sACCESS RC 

s8R TO END OF TEST 

sRESTORE SP AFTER TIMEOUT 


sCAN NOT ACCESS RCSR 
sRESTORE TIMEOUT VECTOR 


TEST ABILITY TO ACCESS SiUe 


££ SSSSSSSSSSSSSSSSSHSSSSSSSSHSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSESSESES 


;sTEST 2i 

TST21: SCOPE 
MOV 
MOV 
MOV 
TST 
BR 

1%: CMP 


#21, ¢TESTN 
804 ,R3 
01% , 804 
SROUF 

2s 

(SP )+,(SP)-> 


33SET TEST NUMBER IN APT MAIL BOX 
:SAVE TIMEOUT VECTOR 

sSET UP TIMEOUT VECTOR 

;ACCESS RBUF 

;8R TO END OF TEST 


sRESTORE SP AFTER TIMEOUT 
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005306 
005310 
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104037 


010337 000004 





001104 
175304 


175314 


175256 


la 30( 1046 ) 


2s: 


{b4 


04 - JAN -6 


1:56 PAGE 28 


TEST ABILITY FO ACCESS SLU2 RBUF 


ERROR 


MOV 


37 
R3,@04 


sCAN NOT ACCESS RBUF 
sRESTORE TIMEOUT vOCTOR 


;*TES’ 22 


TST22: 


1%: 


2s: 


3$: 


70$ : 


SCOPE 


TEST SLU2 BITOCBREAK BIT) CAN BE SET € CLEARED € RESET 


@22, 4TESTN 
#6ITO,8TCSR 
e6ITO,8TCSR 
is 

40 
#61TO,8TCSR 
o6ITO,8TCSR 
2s 

41 
#BITO,@TCSR 
e6ITO,8TCSR 
3% 

42 

#1, SOsENV 
70% 


SOsPASS 
TsT23 


eBITO,eTCSR 
#6ITO,8TCSR 
TSTt23 

aaa 


33SET TEST NUMBER IN APT MAIL BOX 

sMAKE SURE BIT UNDER "Ei IS INITIALIZED 
CHECK BITO OF TCSR CLEAR 

:8R IF CLEAR 

sBITO WAS NOT CLEAR AFTER RESET 

sSET BITO IN TCSR 

ae IF Sey OF TCSR 


:BITO OF TCSR WILL NOT SET 
sCLEAR BITO OF TCSR 
sTEST BITO OF TCSR 


sBITO OF TCSR WILL NOT CLEAR 


sARE WE RUNNING UNDER APT 

sIF NO THEN DO TEST 

s3IS THIS FIRST PASS 

sIF NO THEN SKIP TO NEXT TEST 


sSET BITO IN TCSR 

sCLEAR BITO WITH RESET 
:TEST BITO CLEAR 
:BR IF CLEAR 


:CLEAR BITO. TO PRINT ERROR 
sRESET DID NOT CLEAR arto OF TCSR 






£ S FSSSSSSSSSHESSSSSSSSSSASSESSSSSOSSSSSHSSSSSSSSSSSSSSSEHEESESSESS 


s*TEST 235 


TST23: 


1%: 


A TS TT 


TEST THAT SLUG BIT6ECXMIT INT EN) CAN BE SET E RESET 
§ § SOSSSSSSSESSESESSHSSSHOSEESEHESHESEESRESESESESEASEEEEESESEESES 


#23, ¢TESTN 





WORD 346 
#BIT6, STCSR 
2s 
ge 
2s 
(SP )+,(SP)- 
45 


33SET TEST NUMBER IN APT MAIL BOX 
sMAKE SURE BIT UNDER TEST IS INITIALIZEC 


sSET UP INTERRUPT VECTOR FOR ERROR REPORT 
sSET PSW TO PRIORITY=7 


;sTEST BIT6 OF TCSR 
;BR IF ZERO 


sBIT6 IN TCSR NOT CLEAR AFTER RESET 


sRESTORE SP AFTER INTERRUPT 
sXMIT INTERRUPT OCCURRED PRIO=7 


oe eee ee 


SEG 0042 


—_ ee ee - 
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CUKDOFB.P11 


1410 
1411 
1412 
1415 


005530 
005536 
005544 


052777 
032777 
€01001 


104046 


000100 
000100 


175162 


000100 
000100 


000100 


175236 
175250 


175216 
175210 


001120 


175160 
175150 


001104 
175116 
175126 


175070 


175050 
175042 


175030 


meres 30( 1046 ) 


E4 
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04 - JAN-85 


TEST THAT SLU2 BIT6CXMIT INT EN) *CAN BE SET & RESET 


es: BIS 
BIT 


3%: BIC 


4$: BIT 


708: 


S$: MOV 


eB1T6,8TCSR 
Slated 


46 
#68IT6,8TCSR 


#61T6,8TCSR 
47 


e6IT6,@TCSR 
#68IT6,8TCSR 
S$ 


50 
R3, STVECT 


:SET BIT6 OF TCSR 
sTEST BITE OF CSR 


;BR, IF SET 


;CANNOT SET BIT6 OF TCSR 


;CLEAR BIT6 OF TCSR 
;TEST BIT6 OF TCSR 
;8R IF CLEAR 


sCANNOT CLEAR BIT6 OF TCSR 


s;ARE WE RUNNING UNDER APT 

sIF NO THEN DO TEST 

sIS THIS FIRST PASS 

sIF NO THEN SKIP TO END OF TEST 


;SET BIT6 OF TCSR 
;CLEAR BIT6 WITH RESET 
sTEST BIT6 OF TCSR 

;8R IF CLEAR 


sCANNOT CLEAR BIT6 OF TCSR WITH RESET 
; RESTORE XMIT VECTOR 


|S SRESSSSSHESSESSESESEEESSHESEOEESSRESEEREEOOEEEDEEESEOSEEEEEESESS 
TEST THAT SLU2 BIT6 OF RCSR CAN BE SET € RESET 
js SSSSHESESSSHESSESEHERESES ESS EERESHEREERESEOREDEEEEEEESEEEELEEEESS 


3*#TEST 
TST26é: 


1%: CMP 


2s: BIS 


3%: BIC 


024, ¢TESTN 





2s 
CSP )+, CSP) 
Se 


#8116, @RCSR 
oo 


53 


#B8IT6,@RCSR 


s3SET TEST NUMBER IN APT MAIL BOX 

sMAKE SURE BIT UNDER TEST IS INITIALIZED 
s SAVE RECEIVE VECTOR 

sSET UP INTERRUPT VECTOR FOR ERROR REPORT 
sSET PSW TO PRIORITY=7 


;TEST BIT6 OF RCSR 
s;BIT6 OF RCSR NOT CLEAR AFTER RESET 


sRESTORE SP AFTER INTERRUPT 
;RCVR INTERRUPT WITH PRIORITY=7 
;SET BIT6 OF RCSR 

;TEST BIT6 OF RCSR 

;B8R, IF SET 

;CANNOT SET BIT6 OF RCSR 

;CLEAR BIT6 OF RCSR 


SEQ 0045 
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CUKDFB.P11 


005740 
005746 


006110 


032777 
001401 


010377 


000100 


000001 
001106 


000100 


000100 


174774 


174662 


175022 


001120 


174772 
174762 


001104 


001120 


eo + eee ee 
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Fa 
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TEST THAT SLU2 BIT6 OF RCSR CAN Be SET € RESE! 


:TEST BIT6 OF RCSR 
;BR, IF CLEAR 


CANNOT CLEAR BIT6 OF RCSR 


sARE WE RUNNING UNDER APT 

;IF NO THEN DO TEST 

sIS THIS FIRST PASS 

sIF NO THEN SKIP TO END OF TEST 


:sSET BIT6 OF RCSR 

;CLEAR BIT60F RCSR WITH RESET 
;TEST BIT6 OF RCSR 

;8R, IF CLEAR 


sCANNOT CLEAR BIT6 OF RCSR WITH RESET 
sRESTORE RECEIVE VECTOR 


5 J OSOSSSSKSHESSSSESESESESSE SES EHOEEHESEEEEESEEESEEEEESEEEEEESEOES 
TEST THAT SLU2 RCVR DONE (7) SET € CLEAR PROPERLY 


124 
BIT $8IT6,aRCSR 
BEQ 4$ 
ERROR 54 
BEG 70% 
TST BEsSPASsS 
BNE S$ 
70$: 
BIS 6B IT6,@RCSR 
RESET 
BIT #BIT6,8RCSR 
BEG 53% 
ERROR 55 
5$: MOV R3,@RVECT 
:*¢TEST 25 
: SC 
MOV 25, $TESTN 
CLR SRBUF 
CLR RO 
CLR STBUF 
WOONE: TSTB SRCSR 
BMI is 
INC RO 
BNE WOONE 
ERROR 56 
BEQ 70$ 
TST BOsPASS 
BNE 2% 
70$: 
RESET 
TSTB @RCSR 
BEG re 
ERROR 57 
2s: TST SRBUF 


+3SET TEST NUMBER IN APT MAIL BOX 

sINITIALIZE REGISTER BEFORE TESTING 

;CLEAR TIMER 
sLOAD TRANSMIT BUFFER 

| CHECK FOR RECEIVER DONE 


sBR, IF DONE 
SINCREMENT TIMER, IF NOT DONE 
sCONTINUE WAIT IF TIME REMAINS 


sRECEIVER DONE NEVER SET 


APT 

sIF NO THEN DO TEST 

:IS THIS FIRST PASS 

sIF NO THEN SKIP TO END OF TEST 


sCLEAR DONE WITH RESET 
sCHECK FOR DONE CLEAR 





sRESET DID NOT CLEAR RCVR DONE 
sCLEAR RECEIVER BUFFER 


Ss FSSSSSSSHSSSSESSSSSHSHSSSSESSSSSSSSSHASSSSSSSSSESSSSSSSSSSESESESESEED 


TEST SLU2 THAT READING RBUF CLEARS RECEIVER DONE 


;*TEST 26 


£ F SSSSSSSESESSHESSSSSSSESSSESSHKSSSSSSSSSSSESSSSESSESHEESESESESESSSESEESESEEESE 


TST26: 


SCOPE 


SEQ 0044 
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000026 
174646 
174646 
174634 


174650 
174622 


6 
174574 


000100 
000100 


001104 


001104 
174544 


174554 


174516 


174476 
174470 


i 


194 
MACY11 30( 1046) 


MOV 26, $TESTN 
CLR SRBUF 
CLR STBuF 

1s: TSTs @RCSR 
BPL is 
MOV SRBUF ,RO 
TST8 SRCSR 
BEQ TST27 
ERROR 60 


LTCRT: 


O4-JAN-85 11: PAGE 31 
TEST sLue THAT READING RBUF CLEARS RECEIVER DONE 


38 


:3SET TEST NUMBER IN APT MAIL 80% 
;INITIALIZE REGISTER BEFORE TESTING 
;LOAD TRANSMITTER 


_sWAIT FOR RECEIVER DONE 


sREAD RECEIVE BUFFER 
sCHECK FOR RECEIVE DONE CLEAR 
;BR, IF CLEAR TO NEXT TEST 


sREADING RBUF DID NOT CLEAR RCVR DONE 


§ F SSSSSSSHSSSSSSSSSHSSHSSSSSSSSSSESSESHESSSHSHESESEHSEEESSEESEHESSEEOEEESEEOE 


TEST ABILITY TO ACCESS LKS 


$F SSSSSSSSSSSSSHSSSSSSESSSESSSSSESASSHSHHSSSHSHESEHSSSSESEHEHSEESHEHESEOE 


;@TEST e7 

TST27: SCOPE 
MOV 027, $TESTN 
BIT @BIT2,80$DEVM 
BNE 99% 
JP UNIQUE 

99%: 
MOV 804 ,R3 
MOV 01%, 304 
TST a_Ks 
BR 2s 

1$: CMP CSP)+,CSP)>+ 
ERROR 61 

2s: MOV R3, 904 


33SET TEST NUMBER IN APT MAIL BOX 

s00 THESE TESTS FOR THIS DEVICE? 

3F YES CONTINUE WITH TESTS 

sIF NO GO TO START OF NEXT SET OF TESTS. 


sSAVE TIMEOUT VECTOR 

;SET UP TIMEOUT VECTOR 

;ACCESS LKS 

sNO TIMEOUT - BR TO END OF TEST 


;RESTORE SP AFTER TIMEOUT 
;CAN NOT ACCESS LKS 


sRESTORE TIMEOUT VECTOR 


FF SSSSSSSSSHSSSSSSSSSSSSESSESESSESSSSESSHASESSESSSEASSSSHSSESAHKESEEEEEE 


TEST THAT BIT6 OF LKS CAN BE SET € RESET 


§ S OCSSSEOEKSESEESSEAEHEESEESSSEEEERESEEEEHESEEEESEEEEEEEEEHOESEES® 
: SCOPE 














:@TEST 30 

TST3O 
MOV #30, $TESTN 
BIC 
MOV 
MOV 016, @RTCVT 
JSR PC ,WRPSW 

-WORD 340 

BIT @6IT6,@.KS 
BEQ 2% 
ERROR 62 
BR 2s 

i$: CMP CSP )+,(SP)-+ 
ERROR 635 

2s: BIS @6IT6,@LKS 
BIT OBIT6,@LKS 
BNE 3% 
ERROR 64 


33SET TEST NUMBER IN APT MAIL BOX 
:MAKE SURE BIT UNDER TEST IS INITIALIZED BEFORE TESTING 


CTOR 
TERRUPT a ae FOR ERROR REPORT 
sSET PSW TO PRIORITY 7 


;TEST BIT6 OF LKS 
;BIT6 OF LKS NOT CLEAR AFTER RESET 


sRESTURE SP AFTER INTERRUPT 
3LKS INTERRUPT WITH PRIORITY=7 
sSET BIT6 OF LKS 


;sTEST BIT6 OF LKS 
;BR IF SET 


SEQ 0045 


ee — - 
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104066 
010377 


000100 
000100 


174422 


174274 


174456 
174450 


001120 


174420 
174410 


001104 
001120 


174332 
174324 


174314 
174306 


tn 30( 1046 ) 


T30 


3$: 


4$: 


70%: 


5$: 


ri4 


04 - JAN -85 
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PAGE 32 
TEST THAT BIT6 OF LKS CAN BE SET & RESET 


OBIT6,@LKS 
@B1T6,@LKS 
ag 

65 

01, Q0SENV 
70$ 


BOsSPASS 
S$ 


OBIT6.QLKS 
@BIT6,@L.KS 
5$ 


66 
R3,@RTCVT 


;CANNOT SET BIT6 OF LKS 


:CLEAR BIT6 OF LKS 
TEST BIT6 OF LK 


sCANNOT CLEAR BIT6 OF LKS 

;ARE WE RUNNING UNDER APT 

;IF NO THEN DO TEST 

;IS THIS FIRST PASS 

;IF NO THEN SKIP TO END OF TEST 


;SET BIT6 OF LKS 

;CLEAR BIT6 OF LKS WITH RESET 
;TEST BIT6 OF LKS 

;8R IF CLEAR 


sCANNOT CLEAR BIT6 OF LKS WITH RESET 
sRESTORE LINE CLOCK VECTOR 


js PCSEHAOSESEESSEESSEESESEESSEESESEESEEESEREEESEEEOEEEESESESEEERS 
TEST THAT BIT7 OF LKS SETS € CAN BE CLEARED 


s*TEST 31 


$F SSSSSSSSSSHESSSSSSSSSHSSHASESESSSSSSSSSSSSSSSSSSHSSSHHKESESSEEES 


TST 


708: 
1$: 


2s: 


3%: 
CONT : 


31: 


MOV 
BIT 


031, $TESTN 
#1, SOSENV 
70% 
@esPASS 
TST32 


aLKs 
2s 
67 


@B1IT7.GLKS 
+ lect 


oBIT7,@LKS 
hell ais 


33SET TEST NUMBER IN APT MAIL BOX 
;ARE WE RUNNING UNDER APT 

:IF NO THEN DO TEST 

:IS THIS FIRST PASS 

:IF NO THEN SKIP TO NEXT TEST 


sCLEAR EVERYTHING € SET BIT? OF LKS 
sTEST FOR BIT7 OF LKS 
3;BR SET 

:BIT7 OF LKS DID NOT SET WITH RESET 


sCLEAR BIT7 OF LKS 
;TEST BIT? OF LKS 


sTRY ONE MORE TIME BECAUSE THE CLOCK 
s MAY HAVE SET IMMEDIATELY AFTER THE FIRST CLEAR 
sCAN NOT CLEAR BIT? OF LKS 


;CLEAR TIMER 
;TEST FOR BIT? OF LKS 


IF SET 
s INCREMENT TIME 
; CONTINUE win TIME EXPIRES 


sBIT7 OF LKS DOES NOT SET 


SEQ 0046 


—— 
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001104 
001120 


177776 


001024 
001026 


A 


MACY11 30( 1046) 


131 


UNIQUE : 


14 
11:58 


04 - JAN-85 
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TeST THAT BIT? OF LKS SETS € CAN BE CLEARED 


£ Fs SSSSSSSSSSSSSSSEHSSSSSESSESSSESSSSESESHESHEHSESSESEESSESEASEEEESEESEEEEEELE 


;*@TEST 32 


£ F SSSSSSSSHSSSHSSSSSESSSSESSESASESESESSESSESESESHSEESESESEESEESEEEEEEEEES 


TST32 


70$: 


1%: 


2s: 


3%: 
4%: 


5$: 


6%: 
78: 


UNIQUE 


632, $TESTN 
@1, SO@sSENV 
70 


$ 
@O$PASS 
TST33 


@CR1), $BDDAT 
72 


@2,R1 
as 


INTERNAL ADDRESS TEST 


33SET TEST NUMBER IN APT MAIL BOX 
sARE WE RUNNING UNDER APT 

VIF NO THEN DO TEST 

:IS THIS FIRST PASS 

s;IF NO THEN SKIP TO NEXT TEST 


;WE WILL BE PLAYING WITH BIT6 

3SO LOCK OUT EXTRAINEOUS INTERRUPTS 
1GET LOCATION OF FIRST REGISTER ADORESS 
sMAKE RS POINT TO LOCATION OF FIRST 
sREGISTER ADDRESS 
;SET LOOP COUNTER TO CLEAR AL. REG. 
sCLEAR A REGISTER 

sLOOP UNTIL ALL REGISTERS CLEARED 
‘SET TEST BIT IN DEVICE REGISTERS 
sGET LOCATION OF FIRST REGISTER ADDRESS 
;SET UP TEST LOOP COUNTER 
sIS TEST BIT SET IN THIS REGISTER 
sIF YES GO SEE IF THERE IS AN ERROR 
sLOOP UNTIL ALL REGISTER CHECKED 
sARE WE DONE TESTING 
sIF YES GO TO NEXT TEST 
sCLEAR REGISTER JUST TESTED AND POINT 
;TO NEXT ONE 
sCONTINUE TESTING 
s0I0 WE COMPARE THE REGISTER TO ITSELF? 
sIF YES GET OVER ERROR CALL 
sIF NO SET UP ERROR INFORMATION 








sWRITE TO 1 INTERNAL ADDRESS MODIFIED 
sANOTHER SO ADDRESS NOT UNIQUE 

: RESTORE POINTER 

;GET BACK IN TEST LOOP 


SEQ 0047 


er ee eet = eee ea eee 


TS SV SSS -s~-tslsts-— 


CJKDFBO 11/24 OPTIONS DIAGNOSTIC 


CuK 


OF B.P 


il 
006 700 


042777 
022626 
010377 
000004 
012737 


340 
017703 
012777 


04-JAN-865 11:44 


015056 
173730 
173674 
000100 


001104 
001120 


001156 


174026 
174036 


174006 
173756 


173744 


001104 
173720 


173722 


173664 


JIG 


MACY11 30(1046) O4-JAN-85 11:58 “pa 34 
T32 UNIQUE INTERNAL ADDRESS TEST 


SLULIT: 


FPS SSSSSSSSSSTESSESSOSSSESSSESSESSSESSSSSSSESSESSSSSHEESESEEKESESESEEEEOEES 


;eTEST 33 TEST THAT SLU] XMIT INTERRUPTS ONLY WHEN ENABLED 
£ § SSSSSSSSSSSSSSSESSSSSSSSSESSASSSESSSSSSESESSESSESSESESEESESHESSEESSEEESEOE 
TST33: SCOPE 
MOV 033, $TESTN :3SET TEST NUMBER IN APT MAIL BOx 
BIT 01, BOSENV ;IF NOT UNDER 
BEQ 70% ; THEN RUN THIS. SERIES OF TESTS 
TST BOSPASS ; ELSE IF FIRST PASS 
BEQ 70% ; THEN RUN THESE TESTS 
ual JMP SLU2IT ; ELSE 00 NOT RUN THESE TESTS 
@BITO,@0$DEVM ;00 THESE TESTS FOR THIS DEVICE? 
BNE 99% iF YES CONTINUE WITH TESTS 
aes JMP SLU2IT ;IF NO GO TO START OF NEXT SET OF TESTS. 
"RESET ;CLEAR THE WORLD 
BIC @BIT6,8CTCSR ;CLEAR TRANSMIT INTERRUPT ENABLE 
MOV @CTVECT,R3 ;SAVE XMIT VECTOR 
MOV €2¢, @CTVECT ;POINT XMIT VECTOR TO ERROR REPORT 
1s: TTB cTCSR ;WAIT FOR DONE 
JSR PCAMRPSH ;SET PSW TO PRIORITY 3 
BR 3% 
2%: CMP (SP)+,(SP)-+ ;RESTORE SP AFTER INTERRUPT 
ERROR 74 
;XMIT INTERRUPTS WITH INTERRUPT ENABLE CLEAR 
3$: MOV 04% ,@CTVECT ;SET XMIT VECTOR TO END OF TEST 
BIS @BIT6,8CTCSR §$;ENABLE INTERRUPTS 
ERROR 75 :XMIT DIO NOT INTERRUPT 
4$: BIC @B1T6,8CTCSR $ ;DISABLE INTERRUPTS 
cnep (SP)+,(SP)- ;RESTORE SP AFTER INTERRUPT 
MOV R3, @CTVECT ;RESTORE XMIT VECTOR 


| POSSE OSSSESASSEERSSESESESESEHSESSESSESEERESEDEROSEEEESESESESESESES 
;*TEST 34 TEST SLU1 XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED 


i FS SSSHSESSSSSSSSSSESSSESSSSSESASSSSSASHASSSSSSHSSSSKSSSASESESHSESSEESSS 


TST34: 

MOV 634 ,$TESTN 3;SET TEST NUMBER IN APT MAIL BOX 

BIC #8IT6,8CTCSR ;DISABLE INTERRUPTS 

JSR PC ,WRPSW ;SET PSW TO PRIORITY 7 

-WORD 340 

MOV SCTVECT RS sSAVE XMIT VECTOR 

MOV 2% ,.@CTVECT :POINT XMIT VECTGR TO ERROR REPORT 
1$: -" — sWAIT FOR DONE 

4 #6IT6,8CTCSR ;ENABLE INTERRUPT 

BR 3$ ;CONTINUE TEST 


me 


SEQ 0048 


eee ee eee ee C+ 
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CUKDFB .P 


il 04-JAN-85 11:44 


022626 
104101 


010377 
010477 


000004 
012737 
042777 


000100 
007156 
015056 


173640 


007306 
015056 


173510 
173506 


000036 
000100 


173646 
173662 


001104 
173600 


173604 
173600 


173532 


173540 


173500 


001104 
173444 


sa 30( 1046 ) 
134 


2s: 


$$: 


4$: 


5$: 


i” 


iQ 


04-JAN-85 11:56 


PAGE 
TEST SLU] XMIT INTERRUPTS DO NOT “OCCUR WHEN DISABLED 


CMP (SP)+,(SP)-+ 
76 


BIC #681T6,8CTCSR 
MOV 04% ,SCTVECT 
JSR PC ,WRPSW 

.WORD 140 
BR S$ 


CMP (SP )+,CSP)-« 
77 


MOV R3,@CTVECT 


sRESTORE SP AFTER INTERRUPT 
:XMIT INTERRUPTS AT PRIORITY=?7 


3CLEAR INTERRUPT ENABL 


E 
sPOINT XMIT VECTOR TO ERROR REPORT 
;SET PSW TO PRIORITY 3 
;BR TO END OF TEST-NO INTERRUPT 
;RESTORE SP AFTER INTERRUPT 


sXMIT INTERRUPT OCCURES WITH BIT6 CLEAR 
sRESTORE XMIT VECTOR 


SE SPSSHSSSSESSSSSSSSSESSSESSSESSEHSESSSHESSSEHESESSSESESESESEESESSESEESESEEESEE 


;*TEST 35 


TEST SLU1 TRANSMITTER FOR DOUBLE INTERRUPTS 


§ F SSSSSSSSSSSSSESSSSESSSSCHESSESSESESSSESESSSSSHSSEESSEHSSEEESEEESEEEOEEEED 
sc 


TST3S 


1$: 


2s: 


4%: 


5$: 


MOV #35, $TESTN 

BIC #6IT6, @CTCSR 

MOV SCTVECT RS 

MOV acTPsw,.R 

MOV #2¢ ,@CTVECT 

MOV 0340, 8CTPSW 

JSR » WRPSW 
.WORD 140 

TSTB acTcsrR 

BPL i$ 

BIS #6IT6,aCTCSR 

NOP 

ERROR 100 

CMP CSP )+,(SP)+ 

MOV 64% ,ACTVECT 

JSR PC, WRPSW 

-WORD 140 


NOP 

BIC #6IT6, SCTCSR 
BR S$ 

CMP CSP )+,CSP)+ 
ERROR 101 

MOV R3,SCTVECT 
MOV R4,aCTPSW 


3;SET TEST ay IN APT MAIL BOX 
T ENABLE 


;SET PIO 7 AFTER INTERRUPT 
s;SET PSW TO PRIORITY 3 


;WAIT FOR DONE 
sENABLE INTERRUPTS 


;XMIT INTERRUPT DID NOT OCCUR 
RESTORE SP AFTER INTERRUPT 
sPOINT XMIT VECTOR TO ERROR 
sSCT PSW TO PRIORITY 3 


sGIVE TIME FOR ANY INTERRUPTS 
TERRUPTS 


;0I — IN 
:BR TO END OF TEST 


sRESTORE SP AFTER INTERRUPT 
sXMIT RE- INTERRUPTED 


sRESTORE XMIT VECTOR 
sRESTORE XMIT PSW VECTOR 


SF SSSSSSSSHESSESSHESSESESSSESSSSSSESSSKSESSSESSSESSSEHSESHSSSSSSESSSHEKSESES 


s*TEST 36 


TEST THAT SLU1 XMIT INTERRUPT CLEARS WITH LOADING TBUF 


£ F FSSSSESSSSSSEKSESSSSESSEKSSSESESESESSSSASSSESESESSESHESSESHSSESSESSSSSEEEEESD 


TST36 


OPE 
MOV 036, $TESTN 


BIC #BIT6 ,ACTCSR 


33SET TEST NUMBER IN APT MAIL BOX 
;DISABLE INTERRUPTS 


SES 0049 


mem ee ee ee 
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CuKDF 


ee ee ees ee eee - 


010377 


B.Pil 04-JAN-85 11:44 


015056 


173454 
007424 
000100 
173414 
173406 


173402 
015056 


000100 


173372 


173446 
173416 


173362 


173314 
173320 


173254 


173244 


173250 
173220 


173214 


wee is 30( 1046 ) 
736 


1$: 


2$: 


3$: 


ie. 


04-JAN-85 11: 


58 


AGE 36 
TEST THAT SLU1 XMIT INTERRUPT C CLEARS WITH LOADING TBuUF 


JSR 


PC ,WRPSW 
. WORD 


#81T6,aCTCSR 
3$ 

(SP )+,(SP)-+ 
102 


R3,@CTVECT 


sSET PSW TO PRIORITY 7 


sSAVE XMIT VECTOR 
sPOINT XMIT VECTOR TO ERROR 


sENABLE INTERRUPTS 


;LOAD TBUF 
;sWAIT FOR DONE C INTERRUPT ) 


sFILL SECOND BUFFER TO RESET INT. 
sALLOW INTERRUPTS 


sGIVE TIME FOR ANY INTERRUPTS 
:DISAB'.E INTERRUPTS 

;BR TO END OF TEST 

sRESTORE SP AFTER INTERRUPT 


sLOADING TBUF DID NOT CLEAR INTERRUPT. 
;RESTORE XMIT VECTOR 


5 § PPORSSAESEESSEAESESERESSSSESEESSEESSESEESEESSEAESESESESESEEEESS 
INTERRUPTS 


s*TEST 37 
3} SESHSSARESSESESSEEESHESESEREEEEEERESHODESEESERSSSEESEESEEEEESES 


TST37: 


i$: 


2s: 


3$: 


MOV 
RESET 


TEST THAT SLU1 RCVR 


037, $TESTN 
@8IT6,8CTCSR 
@61T6.8CRCSR 
e6IT2,OCTCSR 
SCRVECT .RS 
2% ,GCRVECT 
PC ,WRPSW 











i$ 
a 


eBIT2, aCTCSR 
CSP)+, CSP )« 
103 


04% ,ACRVECT 
#6116, @CRCSR 


oBIT2, aCTCSR 


ONLY WHEN 

33;SET TEST NUMBER IN APT MAIL BOX 
sMAKE SURE NO INTERRUPTS ARE PENDING FROM 
sANOTHER TEST 

sDISABLE TRANSMIT INTERRUPTS 
sOISABLE RECEIVER INTERRUPTS 

;SET WRAP 

;SAVE RECEIVE VECTOR 

sPOINT RCV VECTOR TO — REPORT 
1SET PSW TO PRIORITY 3 

;SEND A CHARACTER 

sWAIT FOR RECEIVER DONE 

sCLEAR MAINTENANCE BIT 

) CONTINUE TEST 


sCLEAR MAINTENANCE BIT 
sRESTORE SP AFTER INTERRUPT 


sRECEIVER INTERRPUTS WITH INT. ENABLE CLEAR 
sPOZNT RCV VECTOR TO END OF TEST 

sENABLE RCV INTERRUPTS 

iGIVE ANY INTERRUPTS TIME 

sCLEAR MAINTENANCE BIT 












SEQ 0050 


M4 
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CUKDFB.P11 04-JAN-85 13:44 37 TEST THAT SLU1 RCVR INTERRUPTS ONLY WHEN ENABLED SEQ 
1846 007570 104104 ERROR 104 
yt :RCVR DID NOT INTERRUPT 
1 
1849 007572 042777 000100 173200 4%: BIC 681T6,8CRCSR ;sOISABLE INTERRUPTS 
1850 007600 042777 000004 173176 BIC @BIT2,aCTCSR :CLEAR MAINTENANCE BIT 
1851 007606 022626 CMP CSP )+,CSP)-+ sRESTORE SP AFTER INTERRUPT 
— 007610 010377 173206 MOV R3,8CRVECT sRESTORE RECEIVE VECTOR 
1 
1854 
1855 Meri rT eri ttit irri riititi titi iiitiiiiititiitiiiitiiititittititTitTitTyT 
1856 ;*#TEST 40 TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED 
1857 PeeTITitiititiiitiiiiitiiiiitiiiiiiititiiiitiiitiiiittitit titi tit? 
1858 007614 TST40: SCOPE 
1859 007616 012737 000040 001104 MOV 640, $TESTN ;;SET TEST NUMBER IN APT MAIL 80x 
1860 007624 RESET ;CLEAR EVERYTHING 
1861 007626 004737 015056 JSR PC ,.WRPSW sSET PSW TO PRIORITY 7 
1862 007632 000 
1863 007634 017703 173162 MOV SCRVECT,RS ;SAVE RECEIVE VECTOR 
1864 007640 012777 007700 173154 MOV 62% ,@CRVECT ;sPOINT RCVR en = ERROR REPORT 
1865 007646 052777 000004 173150 BIS eBIT2, acTCsR ;SET MAINTENANCE WR 
1666 007654 005077 173126 CLR act BUF sSEND A CHARACTER 
1867 007660 105777 173114 1$: TSTB SCRCSR sWAIT FOR RECEIVER DONE 
1866 007664 1003575 BPL 1$ 
1869 007666 052777 000100 173104 BIS @BIT6,8CRCSR sENABLE INTERRUPT 
1870 007674 000240 NOP sGIVE TIME FOR INTERRUPT 
1871 007676 000405 BR 3$ sCONTINUE TEST 
1872 007700 042777 000004 173076 23%: BIC #6IT2,aCTCSR : MAINTENANCE BIT 
1873 007706 CMP (SP )+,(SP)> sRESTORE SP AFTER INTERRUPT 
1874 007710 104105 ERROR 105 
pe Bo sRCVR INTERRUPTS AT PRIORITY 7 
1877 007712 042777 000100 173060 3%: BIC @BIT6,8CRCSR ;CLEAR INTERRUPT ENABLE 
1878 007720 012777 007746 173074 MOV 64% , @CRVECT sPOINT RCVR VECTOR TO ERROR REPORT 
1879 007726 004737 015056 JSR ° ;SET PSW TO PRIORITY 3 
1880 007732 000140 140 
1881 007734 NOP ;GIVE TIME FOR ANY INTERRUPT 
1882 007736 042777 000004 173040 BIC #8IT2,.aCTCSR :;CLEAR MAINTENANCE BIT 
oa 007744 BR 53 ;8R TO END OF TEST. IF NO INTERRUPT 
1885 007746 042777 000004 173050 4%: BIC @BIT2.aCTCSR sCLEAR MAINTENANCE BIT 
1886 007754 02 CMP (SP)+,(SP)+ ;RESTORE SP AFTER INTERRUPT 
1887 007756 104106 ERROR 106 
18868 #RCVR INTERRUPT REQUEST PASSED WITH BIT6 CLEAR 
yon 007760 010377 173036 5$: MOV R3,@aCRVECT sRESTORE RECEIVE VECTOR 
1891 
1892 + [ PERSEEESESEEEEESEOEEEEEREEREEEEEEESESSEEEEEE 4600006646000404664600604 
1893 ;*TEST 41 TEST SLUL RECEIVER FOR DOUBLE INTERRUPTS 
1894 § § PRORSSSESAEEEEKEESEDESEESEESESSEHSEESAESEEEES. REREREHREREORERES 
1895 007764 000004 TST41: SCOPE 
1896 007766 012737 000041 001104 MOV #41,$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 
1897 007774 000005 RESET :;CLEAR EVERYTHING 
1896 007776 017703 173020 MOV SCRVECT,RS sSAVE RECEIVE VECTOR 
1899 010002 017704 173016 MOV @CRPSW,R4 ;SAVE RECEIVE PSW VECTOR 
1900 010006 012777 010070 173006 MOV 02% ,@CRVECT sPOINT RCV VECTOR TO CONTINUE TEST 
1901 010014 012777 000340 173002 MOV 0340 , ACRPSW ;SET PRIORITY TO 7 AFTER INTERRUPT 


a ee ee 


N4 


— 30( 1046) 04-JAN-85 11:58 PAGE 3 
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TEST SLU] RECEIVER FOR DOUBLE INTERRUPTS 


CJKDFB.P11 04-JAN-85 11:44 SEQ 0052 
1902 010022 004737 015056 JSR PC ,WRPSW ;SET PSW TO PRIORITY 3 
1903 010026 000140 .WORD 140 
1904 010030 052777 172746 BIS oBIT2,aCTCSR ;SET MAINTENANCE WRAP 
1905 010036 005077 172744 CLR ac TBUF ;SEND A CHARACTER 
1906 010042 105777 172732 1$: TSTB @CRCSR sWAIT FOR RCVR DONE 
1907 010046 1003575 BPL 1$ 
1908 010050 042777 000004 172726 BIC eBIT2,aCTCSR ;CLEAR MAINTENANCE @IT 
1909 010056 052777 000100 172714 BIS @BIT6,aCRCSR sENABLE RCV INTERRUPTS 
1910 010064 000240 NOP ;GIVE SOME TIME 
1911 
1912 010066 104107 ERROR 107 
1913 ;RCVR INTERRUPT DID NOT OCCUR 
1914 
1915 010070 2s: CMP (SP )+,CSP)-+ ;sRESTORE SP AFTER INTERRUPT 
1916 010072 012777 010124 172722 MOV 63% ,aCRVECT ;sPOINT RCV VECTOR TO ERROR REPORT 
1917 010100 004737 015056 JSR PC ,WRPSW sPESET PSW TO PRIORITY 3 
1916 010104 000140 -WORD 140 
1919 010106 000240 NOP ;GIVE SOME TIME 
1920 010110 042777 000100 172662 BIC @BIT6,8CRCSR ;CLEAR INTERRUPT ENABLE 
1921 010116 010477 172702 MOV R4,@CRPSW sRESTORE RECEIVE PSW VECTOR 
po | 010122 000402 BR 4$ ;BR TO END OF TEST 
1924 010124 022626 3$: CMP (SP)+,CSP)-+ sRESTORE SP AFTER INTERRUPT 
1925 010126 104110 ERROR 110 
1926 sRECEIVER RE-INTERRUPTED 
ba 010130 010377 172666 4$: MOV R3,@CRVECT ;RESTORE RECEIVE VECTOR 
1929 
1930 | {POSS SESEERESERERESEASEESEESEREREEEEEEEEEEEEEEEEEEEEEESEAEESE DEES 
1931 :*#TEST 42 TEST THAT RCVR INTERRUPT CLEARS BY READING RBUF 
1932 eri iri ttt ti iitiiiiiitiiiiitiiitittiiititiitiitittiiititititiit tt 
1933 010134 TST42: SCOPE 
1934 010136 012737 000042 001104 MOV 642, ¢TESTN ;3;SET TEST NUMBER IN APT MAIL BOX 
1935 010144 RESET ;CLEAR EVERYTHING 
1936 010146 004737 015056 JSR PC ,WRPSW iSET PSW PRIORITY TO 7 
1937 010152 000 
1938 010154 017703 172642 MOV @CRVECT RS sSAVE RECEIVE VECTOR 
1939 010160 012777 010246 172634 MOV #23 ,SCRVECT sPOINT RCV VECTOR TO ERROR REPORT 
1940 010166 052777 000100 172604 BIS #BIT6,@CRCSR :SET RCVR INTERRUPT ENABLE 
1941 010174 052777 172602 BIS #61T2,aCTCSR s;SET eye WRAP 
1942 010202 005077 172600 CLR acTBUF ;SEND A CHARACTE 
1943 010206 105777 172566 1$: TSTB SCRCSR sWAIT FOR CONE CINTERRUPT) 
1944 010212 100375 BPL 1$ 
1945 010214 042777 172562 BIC #BIT2,aCTCSR ;CLEAR MAINTENANCE BIT 
1946 010222 005777 172554 TST @aCRBUF ;sREAD RBUF TO CLEAR PENDING INTERRPUT 
1947 010226 004737 015056 JSR PC ,WRPSW ;SET PSW TO PRIORITY 3 
1946 010232 000140 .WORD 140 
1949 010234 000240 NOP ;ALLOW TIME FOR ANY ERRONEOUS INTERRUPT 
1950 010236 042777 000100 172534 BIC @BIT6,&@CRCSR ;NO INTERRUPT-CLEAR INT. ENABLE 
Pe 010244 000402 BR 3$ 
1953 010246 022626 2s: CMP (SP)+,(SP)-+ sRESTORE SP AFTER INTERRUPT 
pen 010250 104111 ERROR 111 ;READING RBUF DID NOT CLEAR INTERRUPT 
sons 010252 010377 172544 3$: MOV R3,8CRVECT ;sRESTORE RECEIVE VECTOR 
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Pil 


010374 
0402 


172430 


100000 


001104 


172420 


001104 
170430 


172362 


172332 
172322 


172310 


MACY11 3001046) 0464-JAN-65 
T42 TEST THAT RCVR 


BS 


aS eae PAGE 3 


T CLEARS ay READING RBUF 


TEST SLU] THAT RESET CLEARS RECEIVE INTERRUPT 


seTEST 43 


SCOPE 
MOV 


TST43: 


1%: 


2s: 


38: 









043, $TESTN 
PC ,WRPSU 
.WORD 340 
SCRVECT .RS 
02% , @CRVECT 
#6I16.8CRCSR 


@81T2.CTCSR 
6377, @CTBUF 
SCRCSR 












@6IT6,SCRCSR 
3$ 


(SP)+,CSP)> 
1i2 


R3,SCRVECT 


33SET TEST NUMBER IN APT MAIL BOX 


sCLEAR EVERYTHING 
sSET PSW TO PRIORITY 7 


sSAVE RECEIVE VECTOR 
sPOINT 2CV VECTOR TO ERROR REPORT 
:SET RCV INTERRUPT ENABLE 

sSET MAINTENANCE WRAP 
sSEND AN ALL 1'S CHARACTER 
{WAIT FOR RCV DONE 

sCLEAR RCV INTERRUPT € 
sSET PSW TO PRIORITY 3 


sALLOW TIME FOR AN ERRONEOUS INTERRUPT 
sNO INTERRUPT-CLEAR INT. ENABLE 
; CONTINUE TEST 

















sRESTORE SP AFTER INTERRUPT 
sRESET DID NOT CLEAR RCVR INTERRUPT 


sRESTORE RECEIVE VECTOR 


;*TEST Ba 
£ fs SSSSSSSSSSSSSTSSSSSSSSESSOSHSESSSSSESSHSSSESSSSESHESSSSEHSEHKESEHESEEE 


TST44; 


1$%: 
2s: 


3%: 


_—_—_——- --ooooO eee a-o- — 


SCOPE 


TEST SLV1 THAT ” 


044, $TESTN 

#61710, 8SuR 

TST45 

#6IT2,.8CTCSR 
#3,RO 

acTeur 

acTcsR 

2s 

RO 

i$ 

#8IT2.8CTCSR 

#61714, 6CRBUF 
3% 

113 

#681715, eCRBUF 
4% 


114 


E— ERROR” BITS CAN BE SET 


13SET TEST NUMBER IN APT MAIL BOX 

sIS THIS TEST ENABL 

sIF DISABLED, BR TO NEXT TEST 

:CLEAR EVERYTHING 

sSET WRAP 

:SET CHARACTER oe TO SEND 35 CHAR. 
sLCAD TRANSMIT BUFFER 

;WAIT FOR TRANSMIT DONE 


sDECREMENT CHARACTER COUNT 
CHARAC 












sBR IF ALL TERS _ TRANSMITTED 
sCLEAR MAINTENANCE BIT 
sTEST FOR “OR” ERROR FLAG 


;6R, IF SET 
:"OR" ERROR FLAG DID NOT SET 


;TEST “ERROR” FLAG 
:6R, SET 
; “ERROR” 


FLAG DID NOT SET WITH “OR” FLAG 


remnant e ee ~ 


SEQ 905" 
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CKOFB.P11 


010476 


000045 


172260 
172246 


172242 


172214 


172204 


' 
a 


. 
. 
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744 TEST SLU] THAT “OVERRUN € 


0 
ERROR” BITS CAN BE SET 


£ f FSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSESSSSSSSSSSHESSSESESESOSEOEEESE 
MAINT 


;*TEST 45 


TEST SiU1 DATA PATH USING 


££ SSSSSSSSSSSSSSSSSSSSSSSSSESSSSESSSSSSSSSSHSSSSSHSSSSSSESE SEES OEEES 

33SET TEST NUMBER IN APT MAIL BOX 

;CLEAR EVERYTHING 

;CLEAR REGISTER FOR TEST DATA 
MAINTENANCE WRAP 


TST45: 
045, $8TESTN 
RESET 
CLR Ri 
BIS eB8IT2,aCTCSR 
1%: INCB Ri 
MOV R1,8CTSUF 
2s: TST8 acCRCSR 
BPL 2s 
MOV 
CMP R1,R2 
3% 
TSTB Ri 
BEQ 44 
BR 1% 
3%: MOV Ri, $GDDAT 
MOV R2, $BDDAT 
BIC @#6IT2,8CTCSR 
ERROR 115 
4$: BIC BIT2,8CTCSR 


mn ee 








3SET 
t THE TEST DATA 
:XMIT A CHARACTER 

sWAIT FOR RECETVER DONE 


sGET wg CHARACTER 
sCOMPARE DATA 

s6R, IF NON-COMPARE 
sTEST XMIT DATA FOR ZERO 
s6R, IF FINISHED 
CONTINUE IF NOT 

STORE THE onsen asin 
tt RECEIVED DA 


EAR MAINTENANCE. B 
;DATA COMPARE DATA 
sCLEAR MAINTENANCE BIT 









—_— ee oe ee o~newe om 


SEQ 00S« 
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ERESEREEL ES 1 


Pll 


010600 


010706 
010714 


010774 
010776 


011000 
011002 


011004 
011012 
011020 


010706 
000100 


001104 
001156 


172142 
172152 


172122 
172072 


172060 


001104 
172034 


172036 


172000 


171762 
171776 


US) 
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145 TEST SLU1 DATA PATH USING MAINTENANCE wrap 
SLU2IT: 
$ {J SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSESSSSESSSESEOOSOE 
;eTEST 46 TEST THAT SLU2 XMIT INTERRUPTS ONLY WHEN ENABLED 
Bs SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSEESESESEE 
1ST46: 
MOV 046, $TESTN :3SET TEST NUMBER IN APT MAIL BOx 
BIT @B1T1,808D0EVM ;00 THESE TESTS FOR THIS DEVICE? 
BNE 99% :F YES CONTINUE WITH TESTS 
ie oe LTCIT :IF NO GQ TO START OF NEXT SET OF TESTS. 
' eB1T6,8TCSR :CLEAR TRANSMIT INTERRUPT ENABLE 
MOV aTvECT, ;SAVE XMIT VECT 
02%, TVECT ;POINT XMIT VECTOR TO ERROR REPORT 
1s: TsTB ercsR ;WAIT FOR DONE 
JSR PC, WRESW ;SET PSW TO PRIORITY 3 
.WORD 140 
BR 33 
2%: CMP (SP)+,( SP)» ;RESTORE SP AFTER INTERRUPT 
ERROR 116 
;XMIT INTERRUPTS WITH INTERRUPT ENABLE CLEAR 
38: MOV 04% ,@TVECT ;SET XMIT VECTOR TO END OF TEST 
BIS #8116, 8TCSR :ENABLE INTERRUPTS 
NOP 
117 ;XMIT OID NOT INTERRUPT 
4s: BIC #8116, @TCSR :O0ISABLE INTERRUPTS 
CMP (SP>+,(SP)- ;RESTORE SP AFTER INTERRUPT 
MOV R3,@TVECT SRESTORE XMIT VECTOR 


} SCORSESE OESEHSSEESSESEHESESEEESHESEEESSHESESESEESEEESEEESESEES 
ERRUPTS DO 


s@TEST 47 


TEST SLU2 XMIT INT 


T OCCUR WHEN DISABLED 


£ § SSSSSSESSSSHSSSSSSSSSESSESSSESSESSESSSSSSSESSSSESSESOSSSOSSHSSESEESEEEEEE 


TST47: 
MOV 
BIC 


1%: TST8 


2s: CMP 


3%: BIC 


047, $TESTN 
@BIT6, BTCSR 
PC ,WRP 


, HRP SW 
-WORD 340 
STVECT RS 
02% ,@TVECT 
= 
#8116, 8TCSR 
3% 
CSP)+,CSP)> 
120 
#61T6,8TCSR 


04% ,QTVECT 
PC ,WRPSW 


53SET TEST NUMBER IN APT MAIL BOX 
sDISABLE INTERRUPTS 
sSET PSW TO PRIORITY 7 


sSAVE XMIT VECTOR 

sPOINT XMIT VECTOR TO ERROR REPORT 
sWAIT FOR DONE 

sENABLE INTERRUPT 

sCONTINUE TEST 

sRESTORE SP AFTER INTERRUPT 

+XMIT INTERRUPTS AT PRIORITY=7 
;CLEAR INTERRUPT ENABL 


E 
sPOINT XMIT VECTOR TO ERROR REPORT 
;SET PSW TO PRIORITY 53 


SEQ 0055 


EE _ 
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011166 
011172 


011176 


011224 


000240 
000402 
022626 
104121 
010377 


022626 
104125 


010377 
010477 
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171754 


001104 
171714 


171720 
171714 


171646 


171654 


171614 


001104 
001120 


171542 


MACY11 30( 1046) 


147 


4s: 


5%: 


cS 
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TEST SLU2 XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED 


. WORD 140 


S$ 


(SP )+, (SP). 
121 


R3,8TVECT 


sBR TO END OF TEST-NO INTERRUPT 
sRESTORE SP AFTER INTERRUPT 


sXMIT INTERRUPT OCCURES WITH BIT6 CLEAR 
sRESTORE XMIT VECTOR 


EF SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSEHSSSSSSSSSSHOSSHSEOEOHEEE 


TEST SLU2 TRANSMITTER FOR DOUBLE INTERRUPTS 


;*TEST SO 


8 fs SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSHSSEESHSHSEEHSEEOE 


TSTSO: 


1%: 


2s: 


4%: 


5$: 


SCOPE 
MOV 
BIC 


#50, $TESTN 
o6IT6,8TCSR 
STVECT RS 
OTPSW,R4 
2% ,@TVECT 
0340, 8TPSwW 
PC ,WRPSW 
.WORD 14C 
STCSR 


i$ 
#6IT6,8TCSR 


122 
(SP)+,CSP)> 
64% .@TVECT 
PC ,.WRPSW 


140 
#68176, 8TCSR 
S$ 


(SP )+.CSP)>+ 
123 


R3,aTVECT 
R4,BTPSW 


33SET TEST NUMBER IN APT MAIL BOX 
CLEAR INTERRUPT ENABLE 





SE VECTOR 
sSET PIO 7 AFTER _s 
sSET PSW TO PRIORITY 3 


sWAIT FOR DONE 
sENABLE INTERRUPTS 


sXMIT INTERRUPT DID NOT OCCUR 
sRESTORE SP AFTER INTERRUPT 
sPOINT XMIT VECTOR TO ERROR 
sSET PSW TO PRIORITY 3 


sGIVE TIME FOR ANY INTERRUPTS 
s0I E INTERRUPTS 
;6R TO END OF TEST 


sRESTORE SP AFTER INTERRUPT 
sXMIT RE-INTERRUPTED 


sRESTORE XMIT VECTOR 
sRESTORE XMIT PSW VECTOR 


BF SSSSSSKSSSSSSSHSSHSSSHESSSSVSSSSSSSSSSSESSSSSSHSSSSESSSSSHSEOSSEEOS 


TEST THAT SLU2 XMIT INTERRUPT CLEARS WITH LOADING TBUF 


s;*TEST 51 


2s SFSSHSSSSSSESSSSAESSSESSSSESESSSESSSSESSSOSSSESESSESESSSSESSESSESSSESEOSSSOSES 


TSTS1: 


708: 


#51, $TESTN 
#1, SOSENV 
70 


3 
BOSPASS 
TSTS2 


#6IT6,8TCSR 


33;SET TEST NUMBER IN APT MAIL BOX 
; RUNNING UNDER APT 

:IF NO THEN DO TEST 

:IS THIS FIRST PASS 

:IF NO THEN SKIP TO NEXT TEST 


sDISABLE INTERRUPTS 


SEQ 00%6 


a ee - 


rS 
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TEST THAT SLUG XMIT INTERRUPT CLEARS WITH LOADING TAU 


CUKOFB.P11 04-JAN-85 11:44 T51 SEQ 005? 
2158S 011232 004737 015056 JSR PC .WRPSW :SET PSW TO PRIORITY * 
2156 011235 340 -WORD 340 
2157 011240 017703 171552 MOV STVECT,RS 1SAVE XMIT VECTOR 
21568 011244 012777 O11316 171544 MOV 2% ,.STVECT sPOINT XMIT VECTOR TO ERROR 
2159 O11252 052777 000100 171514 BIS #6IT6,8TCSR ;ENABLE INTERRUPTS 
2160 011260 005077 171512 CLR TBUF ;LOAD TBUF 
2161 011264 105777 171504 i$: TST6 STCSR sWAIT FOR DONE CINTERRUPT ) 
2162 011270 100375 BPL is 
2163 O11272 9005077 171500 CLR STBuUF sFILL SECOND BUFFER TO RESET INT. 
2164 011276 004737 015056 JSR PC ,WURPSW ;ALLOW INTERRUPTS 
2165 O11H)2 000140 140 
2166 011504 NOP sGIVE TIME FOR ANY INTERRUPTS 
2167 011306 042777 000100 171460 BIC #6IT6,8TCSR sDISABLE INTERRUPTS 
iges 011314 0006402 BR 3$ ;8R TO END OF TEST 
216 
2170 011316 022626 2s: CMP (SP )+,(SP)- sRESTORE SP AFTER INTERRUPT 
2171 011320 104124 ERR Ce 124 
2172 sL.OADING TBUF DID NOT CLEAR INTERRUPT. 
2173 O11322 005001 3%: CLR R1 s INITIALIZE LOOP COUNTER 
2174 011324 005201 4$: INC Ri s INCREMENT LOOP COUNTER 
2175 011326 001576 BNE 4$ SUNTIL LOOP COUNTER EQUALS 0 
2176 0113530 005777 171436 TST BRBUF ;CLEAR RECEIVER BUFFER 
at oe 0:1534 010377 171456 MOV R3,8TVECT sRESTORE XMIT VECTOR 
2179 
2160 
2161 
21862 ££ SSSHSSSSSSSSSSSSSSSSSSSSASASEHESSOSSSSSHSESESEHSSHEKASEESSOEOEEEE 
2183 s*TEST S2 TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED 
2184 § F SSSHSSSSSESSSHSSSHASHSSHSSSSSSHSSSSEOHSSEHSHESSSSESSSSHESEHOEEESEEES 
2185 011340 
2166 011342 012737 001104 33SET TEST NUMBER IN APT MAIL BOx 
2187 011350 042777 000100 171416 OISABLE T INT S 
2166 011356 042777 000100 171404 
2189 011364 017703 171422 
2190 011370 012777 011420 171414 PO 
2191 011376 004737 015056 iSET PSW TO PRIORITY 3 
2192 011402 000140 
2193 011404 005077 171366 ;SEND A CHARACTER 
2194 011410 105777 171354 ;MAIT FOR RECEIVER DONE 
2195 011414 100375 BPL 
ihe 011416 000402 BR sCONTINUE TEST 
2198 011420 022626 2s: CMP (SP )+,(SP)- sRESTORE SP AFTER INTERRUPT 
2199 011422 104125 ERROR 125 
ot sRECEIVER INTERRPUTS WITH INT. ENABLE CLEAR 
2202 011424 012777 011444 171360 33: MOV 64% ,GRVECT sPOINT RCV VECTOR TO END OF TEST 
2203 011432 052777 000100 171330 BIS #6176 .GRCSR sENABLE RCV INTERRUPTS 
2204 011440 NOP sGIVE ANY INTERRUPTS TIME 
2205 011442 104126 FREOR 126 
ote sRCVR DIDO NOT INTERRUPT 
22086 011444 042777 000100 171316 4%: BIC @68IT6.&8RCSR sOiSABLE INTERRUPTS 
2209 011452 022626 CMP (SP)+,(SP)- sRESTORE SP AFTER INTERRUPT 
2210 011454 010377 171332 MOV R3,@RVECT ;sRESTORE RECEIVE VECTOR 











GS 
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CUKDFB. Pil 04-JAN-85 11:44 152 TEST THAT RCVR INTERRUPTS ONLY WHEN ENABLED 320 cone 

2211 

2212 

221 x ££ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHESESSESHESESEEEES 

2214 ;eTEST 53 TEST THAT RCVR INTERRUPTS DO NOT OCCUR WHEN DISABLED 

2215 £ F SSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSSSSSSESESESESEEEOEE 

2216 011460 000004 TSTS3: 


2217 011462 012737 000053 001104 #53, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 


SCOPE 
MOV 
2216 011470 004737 015056 JSR PC, WRPSW sSET PSW TO PRIORITY 7 
2219 011474 000540 . WORD 340 
2220 011476 0177035 171310 MOV SRVECT,RS sSAVE RECEIVE VECTOR 
2221 011502 012777 011534 1713502 MOV @2% ,@RVECT sPOINT RCVR VECTOR TO ERROR REPORT 
2222 011510 005077 171262 CLR aTBUF sSEND A CHARACTER 
2223 011514 105777 171250 1%: TSTB SRCSR ;sWAIT FOR RECEIVER DONE 
2224 011520 100375 BPL 1$ 
2225 011522 052777 000100 171240 BIS #811T6,8RCSR sENABLE INT 
2226 011530 000240 NOP :GIVE TIME FOR INTERRUPT 
2227 011532 000402 BR 3$ sCONTINUE TEST 
2228 011534 022626 2s: CMP CSP )+,(CSP)-+ sRESTORE SP AFTER INTERRUPT 
2229 011536 104127 ERROR 127 
tay sRCVR INTERRUPTS AT PRIORITY 7 
2232 011540 042777 000100 171222 5%: BIC @BIT6,@RCSR ;CLEAR INTERRUPT ENABLE 
22353 011546 012777 011566 171236 MOV €4% ,GRVECT sPOINT RCVR VECTOR TO ERROR REPORT 
2234 011554 004737 015056 JSR PC ,WRPSW ;SET PSW TO PRIORITY 3 
2235 011560 000140 . WORD 140 
22 011562 000240 NOP sGIVE TIME FOR ANY INTERRUPT 
ped 011564 000402 BR 5% ;BR TO END OF TEST, IF NO INTERRUPT 
2239 011566 022626 4%: CMP CSP )+,CSP)> sRESTORE SP AFTER INTERRUPT 
2240 011570 1041350 ERROR 130 
2241 sRCVR INTERRUPT REQUEST PASSED WITH BIT6 CLEAR 
3 011572 010377 171214 5$: MOV R3,@RVECT sRESTORE RECEIVE VECTOR 
2244 
2245 § F SSOSSSSSHSESSSSSSSESSHESSSSESSHESHEESSHSESEASSESHESHSSEEESEEEESESEEESS 
s*TEST 54 TEST SiU2 RECEIVER FOR DOUBLE INTERRUPTS 
2247 ff SOSSSSSOHSSSSSHSESSESSSSHSEESSSESESHSHSSHSSESSESSSEKEHEEEESEESEEES 
2248 011576 000004 TSTS4: SCOPE 
2249 011600 012737 000054 001104 MOV 054, ¢TESTN 33;SET TEST NUMBER IN APT MAIL BOX 
2250 011606 017703 17 GRVECT RS T 





CTOR 
sPOINT RCV VECTOR TO CONTINUE TES’ 








MOV GRPSH ,R4 
22352 011616 012777 011664 171166 MOV 02% , GRVECT 
- GRPSW 








2253 011624 012777 000340 171162 #340, 1SET PRIORITY TO 7 . INTERRUPT 
2254 011632 004737 015056 : ;SET PSW TO PRIORITY 3 

2255 011636 000140 .WORD 140 

2256 011640 005077 171132 CLR aTBUr sSEND A CHARACTER 

2257 011644 105777 171120 i$: TSTB a@RCSR ;WAIT FOR RCVR DONE 

2256 011650 100375 BPL 1$ 

2259 011652 052777 000100 171110 BIS #B1T6.@RCSR sENABLE RCV INTERRUPTS 

oe 011660 000240 NOP sGIVE SOME TIME 

2262 011662 104153) ERROR 151 

a. sRCVR INTERRUPT DID NOT OCCUR 
2265 011664 022626 2s: CMP (SP)+,(SP)+ sRESTORE SP AFTER INTERRUPT 


2266 011666 012777 011720 171116 MOV 03% ,@RVECT sPOINT RCV VECTOR TO ERROR REPORT 


a eee ee ae ee 


HS 
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TEST SLU2 RECEIVER FOR DOUBLE INTERRUPTS 








CUKDFB.P11 04-JAN-85 11:44 SEQ 0059 
2267 011674 004737 015056 PC ,WRPSW sRESET PSW TO PRIORITY 3 
2268 011700 900140 140 
2269 011702 000240 sGIVE SOME TIME 
2270 011704 042777 000100 171056 6BIT6,@RCSR ;CLEAR INTERRUPT ENABLE 
2271 O11712 0104677 171076 R4, BRPSW sRESTORE RECEIVE PSW VECTOR 
ae 011716 000402 4% ;BR TO END OF TEST 
2 
2274 011720 022626 3$: (SP )+,CSP)- sRESTORE SP AFTER INTERRUPT 
2275 011722 104132 132 
2276 sRECEIVER RE-INTERRUPTED 
, 011724 0103577 171062 4%: R3,@RVECT sRESTORE RECEIVE VECTOR 
22 
2279 
2280 fF POOSEHEESESERASSESESESEEEHEEESEEESEHESEEREEEESEEOROSOSESESESEEES 
2261 ;@TEST 55 TEST THAT RCVR INTERRUPT CLEARS BY READING RBUF 
2282 § f POSHAEHSHSSEEESEEEEESESESEOEEEESESEEEEEESEESEEEREEEEEEOEEEEEEEESS 
2263 011750 TSTSS: OPE 
2264 011732 012737 000055 001104 #55, $TESTN 3;SET TEST NUMBER IN APT MAIL BOX 
2285 011740 004737 015056 PC ,WRPSW :SET PSW PRIORITY TO 7 
2266 011744 000 
2267 011746 017703 171040 sSAVE RECEIVE VECTOR 
2268 011752 012777 012024 171032 sPOINT RCV VECTOR TO ERROR REPORT 
22869 011760 052777 000100 171002 ;SET RCVR INTERRUPT ENABLE 
2290 011766 005077 171004 ;SEND A CHARACTER 
2291 011772 105777 170772 1%: SWAT FOR DONE CINTERRUPT ) 
2292 011776 100375 
2293 012000 005777 170766 sREAD RBUF TO CLEAR PENDING INTERRPUT 
2294 012004 004757 015056 ;SET PSW TO PRIORITY 3 
2295 012010 000.40 
2296 012012 sALLOW TIME FOR ANY ERRONEOUS INTERRUPT 
2297 012014 042777 000100 170746 @BIT6.SRCSR 3NO INTERRUPT-CLEAR INT. ENABLE 
= 012022 000402 3% 
2300 012024 022626 2s: (SP )+,(SP)+ sRESTORE SP AFTER INTERRUPT 
poe 012026 1041355 133 sREADING RBUF DID NOT CLEAR INTERRUPT 
a 0120350 010377 170756 3$: R3,QRVECT sRESTORE RECEIVE VECTOR 
2305 i 
2306 
2307 PeET IIIT iT iii iri iiiiiitiititiiiiiitiriiiiiiritiiti i titititiiiitit 
2308 ;*TEST S6 TEST SLU2 THAT RESET CLEARS RECEIVE INTERRUPT 
2309 f J POSSSOSSSSSSESSHSESSEEEESESEESESHEESEESSEEEEEEESERESEAEEEEEEEEESES 
2310 012034 TS6: 
2311 012036 012737 000056 001104 #56, $TESTN + -¥ TEST NUMBER IN APT MAIL BOX 
2312 012044 032737 000001 001120 #1, BesSENV WE RUNNING UNDER APT 
2313 012052 001403 70% VIF NO THEN DO TEST 
2314 012054 005737 001106 @OsSPASS sIS THIS FIRST PASS 
2315 01206C 001037 TST$7 sIF NO THEN SKIP TO NEXT TEST 
2316 012062 70%: 
2317 012062 ;sCLEAR EVERYTHING 
2316 012064 004737 015056 sSET PSW TO PRIORITY 7 
2319 012070 000 
2320 012072 0177035 170714 sSAVE RECEIVE VECTOR 
2321 012076 012777 012150 170706 sPOINT RCV VECTOR TO ERROR REPORT 
2322 012104 052777 000100 170656 @6IT6,@RCSR sSET RCV INTERRUPT ENABLE 


ene aemememe eS 


LS 
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CUKOFB.P11 04-JAN-85 1 TEST SLU2 THAT RESET CLEARS RECEIVE INTERRUPT SEQ 0060 
2323 012112 012777 000377 170656 MOV 0377, aTBUF sSEND AN ALi 1°S CHARACTER 
2324 012120 105777 170644 1$: TSTB @RCSR ;WAIT FOR RCV DONE 
2325 012124 100575 BPL is 
2326 012126 RESET ;CLEAR RCV INTERRUPT € RBUF 
2327 012130 004737 015056 JSR PC ,WRPSW _ gSET PSW TO PRIORITY 3 
2326 012134 900140 -WORD 140 
2329 012136 000240 NOP ;ALLOW TIME FOR AN ERRONEOUS INTERRUPT 
2330 012140 042777 000100 170622 BIC oBIT6,@RCSR sNO INTERRUPT-CLEAR INT. ENABLE 
2331 012146 000402 BR 3$ sCONTINUE TEST 
3333 
2334 012150 022626 2s: CMP CSP )+,(SP)-+ sRESTORE SP AFTER INTERRUPT 
aa 012152 104134 ERROR 1534 sRESET DID NOT CLEAR RCVR INTERRUPT 
a 012154 010377 170632 3$: MOV R3,@RVECT sRESTORE RECEIVE VECTOR 
2339 
2340 J §PHSOSS1 SCORESHEEESEEEESOSESEESSESEESEESESEESSEESEESESOESEEDASEEEES 
2341 ;*#TEST 57 TEST SLU2 THAT “OVERRUN € ERROR” BITS CAN BE SET 
2342 § SOROS SEHAESHEAESERESEESESSEEEESHOEEEEEEESESOAEEESESEEEESESEOEEE 
2343 012160 TSTS?7: OPE 
2344 012162 012737 000057 001104 MOV #57, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
2345 012170 032777 002000 166642 BIT @8IT10,8SWR :IS THIS TEST OISABLED 
2346 012176 001025 BNE TST60 ;IF NOT ENABLED, BR TO NEXT TEST 
2347 012200 012700 000003 MOV @3,RO0 sSET CHARACTER COUNT TO SEND 3 CHAR. 
2348 012204 005077 170566 1%: CLR STBUF sLOAD TRANSMIT BUFF 
2349 012210 105777 170560 2s: TSTB8 8TCSR ;WAIT FOR TRANSMIT DONE 
2350 012214 100375 BPL es 
2351 012216 005300 DEC RO sDECREMENT CHARACTER COUNT 
2352 012220 001571 BNE i$ ;B8R IF ALL CHARACTERS NOT TRANSMITTED 
2353 012222 032777 040000 170542 BIT @81T14,@RBUF ;TEST FOR “OR” ERROR FLAG 
23534 012230 001001 BNE 3% ;8R, IF SET 
2355 012232 104135 ERROR 135 
= ;"OR“ ERROR FLAG DID NOT SET 
2358 012234 032777 100000 170530 3%: BIT @81T15,8RBUF sTEST “ERROR” FLAG 
2359 012242 001001 BNE 4$ :B8R, IF SET 
2360 012244 104136 ERROR 136 
2361 ; “ERROR” FLAG DID NOT SET WITH “OR” FLAG 
2362 012246 4%: 
2363 
2364 
2365 § § PSOSSSSEESEESSHSEEEERESSESEESEESEEESEESEEESASEEEESOEAEREOEDEEEEES 
2366 s*#TEST 60 TEST THAT BREAK TRANSMITS ALL ZEROES 
2367 § { PSRSOHEEEEESEEEEESSESSEHSSESSESEEEESEESEEESESEESERSASAEEEEOERESS 
2368 012246 TST60: SC 
2369 012250 012737 000060 001104 #60, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
2370 012256 012777 177777 170512 6-1, 8TBUF » TRANSMIT ALL ONES TO RCVR 
2371 012264 105777 170500 1%: TSTB @RCSR sWAIT FOR RCVR DONE 
2372 012270 100375 BPL if 
2373 012272 005777 170474 TST @RBUF ;CLEAR DONE CLEAVING ALL ONES IN RBUF ) 
2374 012276 052777 000001 170470 BIS #6ITO,8TCSR s TRANSMIT BREAK 
2375 0123504 CLR RO ;CLEAR A TIMER 
2376 012306 105777 170456 2s: TSTB @RCSR ;sWAIT FOR RCVR DONE 
2377 O12312 100406 BMI CONT41 sBR DONE 
2378 012314 005200 INC RO sIF NOT, INCREMENT TIMER 








——— 


JS 
= 30( 1046) 0O4-JAN-85 11:58 PAGE 47 


CUKDFBO 11/24 OPTIONS DIAGNOSTIC 
TEST THAT BREAK TRANSMITS ALL ZEROES 


eee ae eee |. 


CUKDFB.P1) 04-JAN-85 11:44 SEQ 0061 

2379 012316 001575 BNE 2s :BR IF TIME REMAINS 

2380 

23861 012320 042777 O0COO1 170446 BIC @BITO,aTCSR ;CLEAR BREAK BIT 

2362 012326 104157 ERROR 157 sBREAK DID NOT TRANSMIT ANY THING 

2385 | 

2364 012330 105777 170436 CONT41: TSTB SRBUF ;CHECK RECEIVE BUFFER FOR ZERO 

2385 012534 001404 BEG 3% :BR, IF ZERO 

2386 012336 042777 000001 1704350 BIC @BITO,aTCSR sCLEAR BREAK BITS 

2387 

toe 012344 104137 ERROR 1357 sBREAK DIO NOT TRANSMIT ALL ZEROES 

2 

ey 012346 042777 000001 170420 53%: BIC @BITO,8TCSR ;CLEAR BREAK BITS 

2391 

25 

2393 § S PESSSHSSSSSESESEAESSSAESSEHEREEESESSEESSESEEESEEEEEEEEESEOESEEESEES 

23594 s#TEST 61 TEST THAT “FR” ERROR CAN BE SET DURING BREAK 

2395 ff PRSASESESESSSESESEEAESSESSEESESEESEESESEEESEESEEEESEEEEEDEREEDES 

2396 012554 TST61: 

2397 0123556 012737 900061 001104 MOV 061,$TESTN 33SET TEST NUMBER IN APT MAIL BOX 

2396 012364 032777 9002000 166446 BIT @61T10,8SWR sIS THIS TEST OISABLED 

2399 012372 O01 BNE TST62 ;BR TO NEXT TEST, IF DISABLED 

2400 0123574 052777 170372 BIS @BITO,8TCSR : BREAK 

2401 012402 005077 170570 CLR aTBUF ; TRANSMIT A CHARACTER TO TIME BREAK 

2402 012406 105777 170356 1$: TSTB @RCSR sWAIT FOR RCVR DONE 

2403 012412 100375 BPL 1% 

2404 012414 042777 000001 170352 BIC @BITO,8TCSR s;CLEAR BREAK BITS 

2405 012422 032777 020000 170342 BIT 681T13.8RBUF ;CHECK FOR FRAMING ERROR FLAG 

oor 0124350 001001 BNE 2s ;BR, IF SET 

2406 012432 104140 ERROR 140 

2409 ;BREAK DID NOT SET FRAMING ERROR 

2410 012434 032777 100000 1703350 23: BIT #681715, aRBUF ;TEST “ERROR “FLAG 

ote 012442 001001 BNE 3$ ;BR, SET 

2413 012444 104141 ERROR 141 

2414 ;"ERROR” FLAG DID NOT SET WITH “OR” FLAG 

2415 012446 3$; 

2416 jf SPSS SHHESSESESESERESEHEESESESEHESESESHESESEESEEEOEEEEEEEESE SESS 

2417 s#TEST 62 TEST DATA PATHS USING WRAP CABLE 

2418 } f SPRESSRESSSESEESESEESEOSEEEAEEEESHSHESSHESESSESRESOEESESELEEEEEES 

2419 012446 TST62: SCOPE 

2420 012450 012737 000062 001104 MOV 662. $TESTN 33SET TEST NUMBER IN APT MAIL BOX 

2421 012456 032777 000200 166354 BIT @BIT7,@SwR iIS THIS TEST ENABLED 

2422 012464 001027 BNE TST63 ;BR, NOT 

2423 012466 005001 CLR R1 ; CLEAR REGISTER FOR TEST DATA 

2424 | TRANSMIT A BINARY COUNT PATTERN - UP 

2425 ;TO THE BIT POSITION INDICATED BY THE 
;CONTENTS OF LOCATION “$USWR” 

2427 012470 1$: INCB R1 s INCREMENT THE TEST DATA 

24268 012472 010177 170300 MOV R1,8TBUF /XMIT A CHARACTER 

2429 012476 CLR RO ;CLEAR A TIMER 

2430 012500 105777 170264 2s: TSTB @RCSR sWAIT FOR RECEIVER DONE 

2431 012504 100403 BMI 3$ ;BR IF DONE 

2432 012506 005200 INC RO ; INCREMENT TIMER IF NOT 

2433 012510 001373 BNE 2s :;BR IF TIME REMAINS 
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010157 
010237 


104142 


170252 


001024 
001026 
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3$: 


4$: 


ERROR 


KS 


04-JAN-65 11:56 PAGE 486 
TEST DATA PATHS USING WRAP CABLE 


56 


R1,$GODAT 
R2, $BDDAT 


142 


sRECEIVER DONE NUIT SET 


GET me gh he CHARACTER 
;COMPARE DATA 


, IF NON-COMPARE 
;TEST XMIT DATA FOR ZERO 


:;BR, IF FINISHED 
sCONTINUE IF NOT 
sSTORE EXPECTED DATA 
;STORE RECEIVED DATA 


;DATA COMPARE ERROR WITH WRAP CABLE 


———— ae e+e ee ee 
ee = a | 


i «& 
Bs 
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CUKDFB.P11 04-JAN-85 11:44 TEST DATA PATHS USING WRAP CABLE SEO © 
2449 012544 LTCIT: 
2450 
2451 MeTITiITitTitiiiiitititiiiiitititiritiliriiiitiiiiitiitiririiititTy 
24 ;#TEST 63 TEST THAT THE REAL TIME CLOCK INTERRUPTS PROPERL Y 
2453 Merrit iitiiiiiitiiitiiititiiiiiiiititiriiiititirititiriiriririritity 
2454 012544 000004 TST63: SCOPE 
2455 012546 012737 000063 001104 MOV 063, ¢TESTN 3;SET TEST NUMBER IN APT MAIL BOX 
2456 012554 032737 000004 001156 BIT #BIT2,80$DEVM 100 THESE TESTS FOR THIS DEVICE? 
2457 012562 001002 BNE 99% sF YES CONTINUE WITH TESTS 
2456 012564 000137 013600 JMP BLAST sIF NO GO TO START OF NEXT SET OF TESTS. 
2459 012570 99%: 
2460 012570 004737 015056 JSR PC ,WRPSW ;SET PSW TO PRIORITY 7 
2461 012574 00034C . WORD 340 
2462 012576 017703 170230 MOV @RTICVT RS ;SAVE LINE CLOCK VECTOR 
2463 012602 017704 170226 MOV SRTCPSW,R4 sSAVE LINE CLOCK PSW VECTOR 
2464 012606 012777 012650 170216 MOV 62% ,GRTCVT sSET RTC INTERRUPT VECTOR TO ERROR REPORT 
2465 012614 012777 000340 170212 MOV 6340 , @RTCPSW SKEEP PRIORITY AT 7 
2466 012622 042777 000200 170160 BIC @BIT7,@.KkS ;CLEAR CLOCK DONE FLAG 
2467 012630 052777 000100 170152 BIS 6BIT6,8LKS sSET INTERRUPT ENABLE 
2468 012636 105777 170146 1%: TSTé @_Ks sWAIT FOR RTC DONECINTERRUPT REQUEST ) 
2469 012642 100375 BPL 1$ 
2470 012644 000240 NOP sGIVE TIME FOR ANY INTERRUPTS 
eek 012646 000402 BR 3$ ;8R, IF NO INTERRUPT OCCURS 
2473 012650 022626 2s: CMP (SP)+,(CSP)-« sRESTORE SP AFTER INTERRUPT 
ode. 012652 104143 ERRCR 143 sRTC INTERRUPTS AT PRIORITY 7 
2476 012654 005077 170130 3$: CLR aLKS sDISABLE RTC INTERRUPTS € CLEAR DONE 
2477 012660 012777 012706 170144 MOV 64% ,GRTCVT :SET RTC INTERRUPT VECTOR FOR ERROR 
2476 012666 004737 015056 JSR PC ,URPSW sCHANGE PSW TO PRIORITY 5 
2479 012672 000240 -WORD 240 
2480 012674 105777 170110 20%: TSTe a_Ks sWAIT FOR DONE CINTERRUPT REQUEST) 
2481 012700 100375 20% 
012702 NOP :GIVE TIME FOR ANY INTERRUPT 
aone 012704 000402 BR S$ 3IF NO INTERRUPT - BR TO CONTINUE TEST 
2485 012706 022626 4%: CMP CSP )+,(SP)+ sRESTORE SP AFTER INTERRUPT 
poe 012710 104144 ERROR 186 sRTC INTERRUPTS WITH INTERRUPTS DISABLED 
2488 012712 012777 012746 170112 5$ 67% ,.QRTCVT sPOINT RTC VECTOR TO END OF TEST 
2489 012720 042777 170062 BIC @6IT7.@LKS ;CLEAR CLOCK DONE FLAG 
2490 012726 052777 000100 170054 BIS $6IT6,a.KS sALLOW INTERRUPTS 
2491 012734 105777 170050 6% TST8 SLKS ;WAIT FOR RTC DONE 
2492 012740 100375 6$ 
one 012742 000240 NOP ;GIVE TIME FOR INTERRUPT 
tte 012744 104145 ERROR 145 :RTC INTERRUPT DID NOT OCCUR 
2497 012746 022626 7$: CMP (SP )+,(SP)-+ sRESTORE SP AFTER INTERRUPT 
2498 012750 042777 000100 170032 BIC #BIT6,QL.KS sDISABLE INTERRUPTS 
2499 012756 010377 170050 MOV R3,@RTCVT ;sRESTORE LINE CLOCK VECTOR 
ty 012762 010477 170046 MOV R4, ARTCPSW sRESTORE LINE CLOCK PSW VECTOR 
2502 
2503 


2504 Pee Titi iti i itiitiiiiiiiiiiitiiiiiiitiiitiitiiitititititiiriit ii 


a ee 


M a 
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CUKDFB.P11 04-JAN-85 11:4 TEST RTC FOR DOUBLE INTERRUPTS SEQ 0064 
2505 ;@TEST 64 TEST RTC FOR DOUBLE INTERRUPTS 
2506 £ F SSSSSSHSSSSASSSESSHESSASSESSESESASSSESHEEEEEEHESEEEEEEHESEEHEEEHEESEOS 
2507 012766 000004 TST64: SCOPE 
2508 012770 012737 000064 01104 MOV 064, $TESTN +;SET TEST NUMBER IN APT MAIL B0x 
2509 012776 032737 000001 01120 BIT #1, Q6SENV sARE WE RUNNING UNDER APT 
2519 013004 001405 BEQ 70$ ;IF NO THEN DO TEST 
2511 013006 005737 001106 TST @OsPASS ;I1S THIS FIRST PASS 
2512 013012 001052 BNE TST65 ;IF NO THEN SKIP TO NEXT TEST 
~513 015014 70$: 
2514 013014 017703 170012 MOV @RTCVT,RS sSAVE LINE CLOCK VECTOR 
2515 013020 017704 170010 MOV @RTCPSW,R4 sSAVE LINE CLOCK PSW VECTOR 
2516 013024 012777 013°74 170000 MOV #2% ,ARTCVT ;SET UP RTC INTERRUPT VECTOR 
2517 013032 012777 000340 167774 MOV #340, @RTCPSW sDISALLOW INTERRUPTS AFTER THE INTERRUPT 
2518 013040 004737 015056 JSR PC ,WRPSW ;SET PRIORITY TO 5 
2519 0135044 240 
2520 013046 042777 000200 167734 BIC @BIT7,@LKS ;CLEAR CLOCK DONE FLAG 
2521 013054 052777 000100 167726 BIS @BIT6,ALKS sENABLE CLOCK INTERRUPTS 
2522 015062 105777 167722 1$: TSTB aks ;WAIT FOR DONE 
2523 015066 1003575 BPL 1$ 
2524 015070 000240 NOP sGIVE TIME FOR ANY INTERRUPT 
— 015072 104146 ERROR 146 sRTC INTERRUPT DID NOT OCCUR 
2526 013074 2s: CMP (SP )+,CSP)-+ sRESTORE SP AFTER INTERRUPT 
2529 013076 012777 013116 167726 MOV #3% ,ARTCVT :POINT RTC VECTOR TO ERROR REPORT 
2530 013104 004737 015056 JSR PC ,WRPSW ;SET PSW TO PRIORITY 5S 
2531 013110 000240 WORD 240 
2532 013112 000240 NOP sGIVE SOME TIME FOR AN INTERRUPT 
one 013114 000402 BR a5 ;NO INTERRUPT - BR TO END OF TEST 
2535 013116 022626 3$: CMP CSP )+,(SP)-+ sRESTORE SP AFTER INTERRUPT 
2536 013120 104147 ERROR 147 s; INTERRUPT SEQUENCE DID NOT CLEAR 
peed s INTERRUPT REQUEST 
2539 013122 042777 000100 167660 4%: BIC @BIT6,@.KS sDISABLE CLOCK INTERRUPTS 
2540 013130 010377 167676 MOV R3,@RTCVT sRESTORE LINE CLOCK VECTOR 
aes 013134 010477 167674 MOV R4, @RTCPSW sRESTORE LINE CLOCK PSW VECTOR 
2543 
2544 § fF SSCHSESSESSASESSASSSSSSESSSESSSOESSHSHSESSESSSOHESSSESSSSSESES ESSERE EEES 
2545 ;*TES? 65 TEST THAT RTC INTERRUPT CLEARS WITH RESET 
2546 bf PSSSSSSESSSSSSSASASHOASEASSEASSSSSSHASKRSSSHSSSKESSHSSEESESESESESE 
2547 013140 TST65: SCOPE 
2548 013142 012737 000065 001104 MOV 065, $TESTN 3;SET TEST NUMBER IN APT MAIL BOX 
2549 013150 032737 000001 001120 BIT #1, SOSENV ;ARE WE RUNNING UNDER APT 
2550 013156 001403 BEQ 70% sIF NO THEN DO TEST 
2551 013160 005737 001106 TST @OSPASS ;IS THIS FIRST PASS 
2552 013164 001036 BNE TST66 ;IF NO THEN SKIP TO NEXT TEST 
2553 013166 70$: 
2554 013166 004737 015056 JSR PC ,WRPSW sSET PRIORITY TO 7 
2555 013172 000 0 
2556 0135174 017703 167632 MOV SRTCVT RS sSAVE LINE CLOCK VECTOR 
2557 013200 012777 013252 167624 MOV 62% ,ARTCVT sPOINT RTC VECTOR sy ERROR REPORT 
2556 013206 042777 000200 167574 BIC @6IT7,@LKS ;CLEAR CLOCK DONE FLAG 
2559 013214 052777 000100 167566 BIS oBIT6,@LKS sENABLE CLOCK INTERRUPTS 
2569 013222 105777 167562 1%: TSTB @lKS sWAIT FOR DONE CINTERRUPT REQUEST) 


—— —-——-.-- ————_ e —-. > 


ee ee ee 
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013370 
0135376 


013400 
013402 


013404 
013410 
013414 


022626 
104151 


010377 
004737 
000340 


000004 
012737 
032737 
001403 
005737 
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015056 


000100 


167550 


015056 


167510 
013400 


167422 
015056 


167540 


001104 
001120 


167502 
167452 
167444 


167430 


167412 


001104 
001120 
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2$: 


3$: 


N5 
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TEST THAT RTC INTERRUPT CLEARS WITH RESET 


BPL 
RESET 


JSR 


NOP 
BIC 
BR 


CMP 
ERROR 


MOV 


1$ 

PC, WRPSW 
-WORD 240 
OB IT6,ALKS 
3$ 
(SP )+, (SP )-+ 
150 


R3,@RTCVT 


;CLEAS PENDING INTERRUPT WITH RESET 
;SET PRIORITY TO 5 


;GIVE TIME FOR ANY INTERRUPT 
;DISALLOW INTERRUPTS 
;BR TO END OF TEST 


sRESTORE SP AFTER INTERRUPT 
sRESET DID NOT CLEAR INTERRUPT 


sRESTORE LINE CLOCK VECTOR 


5 PRRSOAAAEESSAEEESEEEESEEERESEEEEEDS t2O60600006060600400060660008608 
TEST THAT RTC INTERRUPT CLEARS BY CLEARING BIT7 OF LKS 
|S PPPRORERERESEESEREESEEEEEEAEEAEEESEEEESEREDEEEEEED( O90004880848 


;*TEST 
TST66: 


70$: 


1$: 


2$: 


3$: 


66 


SCOPE 
MO 


066, $TESTN 
@1, @OSENV 


240 
@BIT6.aLlKS 
3$ 
CSP)+,(SP)+ 
i51 


R3,@RTCVT 
PC ,WRPSW 
340 


;;SET TEST NUMBER IN APT MAIL BOX 
sARE WE RUNNING UNDER APT 

;IF NO THEN DO TEST 

:IS THIS FIRST PASS 

:IF NO THEN SKIP TO NEXT TEST 


;SET PRIORITY TO 7 

;SAVE LINE CLOCK VECTOR 

sPOINT RTC VECTOR — REPORT 
CLOCK INTERRUPTS 

sWAIT FOR DONE CINTERRUPT REQUEST) 


;CLEAR DONE € INTERRUPT 
S ALLOW INTERRUPTS 


sGIVE TIME FOR ANY INTERRUPT 
sDISALLOW INTERRUPTS 
;BR TO END OF TEST 


;RESTORE SP AFTER INTERRUPT 
;CLEARING BIT7 OF LKS DID NOT CLEAR INTERRUPT 


;RESTORE LINE CLOCK VECTOR 
;RESTORE PRIORITY TO 7 


fs FRSAKERESSEREREEREREAAEASEEAEKRASLSESEESRAESEAEEEEESESEAESEAAESEESEEESESD 


TEST CLOCK REPEATABILITY 


;*TEST 67 


fF SSSSASKSRASHEEASE ASSESS AKESSESAESSESEASEAEAEKERASCSEASESESESEEAOSRESEEESD 


TST67: 


SCOPE 
MOV 


067,$TESTN 
#1, SOSENV 
70$ 
Q¢$PASS 


;;SET TEST NUMBER IN APT MAIL BOX 
;ARE WE RUNNING UNDER APT 

;IF NO THEN DO TEST 

;I1S THIS FIRST PASS 


SEG 0065 


TL 
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2617 
2616 
2619 


CESRRERERERE 


euaseteceteeeceerst 
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013574 
015576 


001056 


000100 1673%6 


177777 


167322 
167516€ 


167310 
167304 


167274 


015574 


013574 


000002 


013576 


000040 
014740 


165252 


b6 
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TEST CLOCK REPEATABILITY SEQ 0066 
ne BNE 1ST70 ;IF NO THEN SKIP TO NEXT TES? 
BIC oB116. @LKS ;DISALLOW INTERRUPTS 
CLR RO r A TIMER 
MOV @-1,R1 1SET A FLAG INDICATING FIRST PASS THRU THIS LODe 
1s: CLA R2 CLEAR CLOCK COUNTER 
CLR @LKS ;CLEAR DONE 
28: 1TS18 0s @LKS ;SYNC ON DONE 
BPL 28 
CLR aLKS 
35: S180 @LKS DONE ? 
BPL as . TO INCREMENT TIMER 
INC R2 INCREMENT CLOCK COUNT 
CLR aLKS 
4%: Inc RO 
BNE 33 
INC Ri PASS FLAG 
BNC ARE IF PASSES HAVE BEEN MADE 
OV R2.FIRST sIF NOT, STORE FIRST CLOCK COUNT 
CMPARE: MOV FIRST.RI1 
SUB R2,R1 DIFFERENCE OF TwO COUNTS 
BPL TOLER :IF POSITIVE,SKIP NEGATION OF DIFFERENCE 
NEG Ri HARE IFFERENCE A POSITIVE R 
TOLER: CMP Ri, 2 WITH DESIRED TOLERANCE 
BLE 4 VR, IF LOWER/EQUAL TO TOLERANCE 
MOV R2,SECND ;STORE SECOND COUNT 
ERROR 152 ;CLOCK REPEATABILITY ERROR 
S$: BIT eB1TS, @SUR ;CLOCK TESTS ONLY? 
BEG TST70 ;8R IF NOT 
IP sE0P ;ELSE, JUMP TC END OF PASS ROUTINE 
FIRST: © 
SECND: Oo 


eee me eee 


NS ee ee = oe ee 
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177777 
177776 


014736 
014400 


001104 
001120 


177776 


———— = 


BLAST: 


£ fs SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSESSSSHASSESESSEEESEES 











;*TEST 70 TEST ALL INTERNAL OPTIONS SIMUL TANEOUSLY 
FF SSSSSSSSSSSSSSSESSSSSSSSSSSSSSSHSSSSSSSSSSSSSSSENSHSESSESOEESESEE 
TST70: SC 
MOV @70,8TESTN 33SET TEST NUMBER IN APT MAIL SOY 
@BITO, BOSENV : WE RUNNING UNDER APT 
70% sIF NO DO TEST 
3IS THIS FIRST PASS 
sIF YES 00 TEST 
sIF NO DO NOT DO TEST 
708: ;CLEAR EVERY BODY 
:SET PROCESSOR PRIORITY TO 7 
sINITIALIZE COUNTERS 
ae sSET UP SLU1 TRANSMIT VECTOR 
' 
MOV sSET UP SLUI RECEIVER VECTOR 
MOV PANS 
ood 3SET UP SLUG TRANSMIT VECTOR 
: 
MOV sSET UP SLU2 RECEIVER VECTOR 
MOV 0340, GRPSW sAND PSW 
MOV @TICKER, GRICVT ;SET UP RTC VECTOR 
HOV 0340, GRICPSW ;AND 
BIT ‘1S SLUI UNDER TEST 
BEQ IF 
61S 
Bis 
BIS 
MOV 
i$: BIT 
BEQ 
BIS 
Brs 
MOV 
2s: BIT 
BEG 
BIS T TS 
3%: MOV sINITIALIZE DATA FOR SLUIC1ST CHR. 0) 
MOV s INITIALIZE DATA FOR SLU2C 1ST CHR. 0) 
CLR TOROP PROCESSOR PRIORITY TO ZERO 
WAITIO: WAIT SWAIT FOR INTERRUPT 
BR WAITIO 
TICKER: INC COUNT sUPDATE COUNT 
JP TOHAND :G0 TO INTERRUPT HANDLER 


04-JAN-85 1 
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014372 


005237 


005200 
010077 
023727 
002405 
042777 
000137 


005237 
005777 
100017 
017737 
000005 


000403 
116337 
104154 
117723 


014726 


166620 
014726 


000100 
014400 


014732 
166562 


166554 


030450 
177777 
177777 


166516 
014400 


014730 


166474 
014730 


000100 
014400 


014734 
166436 


166430 


031050 
177777 
177777 
166372 


001026 


001024 
001024 


000400 
196454 


001026 


ee ee ee ee 
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TEST ALL INTERNAL opt TONS SIMUL TANEOUSL Y 


INC XMTCT1 
INC RO 
MOV RO, SCTBUF 


XMIT1: 


1%: 
REC1: 


1%: 
REC2: 


1%: 


ie 


04 - JAN -85 


11:56 


sUPDATE XMIT —. COUNT 
sUPDATE XMIT DATA 


sSEND NEXT CHARACTER 

















CMP XMTCT1,@400 sIF 256 CHARACTERS HAVE NOT BEEN 
BLT i$ s TRANSFERRED CONTINUE 
BIC @6IT6. SCTCSR ;IF YES TURN OFF TRANSMITTER INTERRPUTS FIRS! 
JP IOHAND :GO TO INTERRUPT HANDLER 
INC RECCT1 sUPDATE RECEIVER INTERUPT COUNT 
TST acReur s8IT 15 SET IF ANY ERRORS OCCURRED 
BPL 3$ sIF BIT IS CLEAR NO ERROR 
SCRBUF.. $BDDAT ;GET ERROR INFORMATION 
RESET sCLEAR THE WORLD STOP ALL 
s INTERRUPTS 
CMP R2, @BUF 1 sWAS MORE THAN 1 WORD TRANSFERRED 
BGT sIF YES GET LAST GOOD DATA 
MOVB -1(R2), sGDDAT 
ERROR 155 
MOVB SCRBUF,, (R2)> 
JP TGMAND 
INC XMTCT2 
INC Ri 
MOV Ril, aT 
Chp XMTCT2, #400 
BLT is 
BIC @BIT6., STCSR 
JP TOHAND 
INC RECCT2 sUPDATE RECEIVER INTERRUPT COUNT 
TST SROUF :BIT 1S SETS IF ANY ERRORS OCCURRED 
BPL 3% IF BIT IS CLEAR NO ERRORS 
MOV SRBUF. sBD0AT ;GET INF ORMATION 
RESET sCLEAR — - STOP ALL 
CoP R3, @BUF2 
BGT is 
MOV @-1, $GODAT 
BR 2% 
MOVB -iCR3), $GODAT 
ERROR 1 sRECEIVER 
MOVB GRBUF , CR3)+ GET DATA AND STORE IT 
: BIT eeIT2, s0EVM sIS RTC UNDER TEST 
BEQ is sIF NO CHECK OTHER DEVICES 
Cop COUNT, #74 sHAS 1 SEC ELAPSED 
BLT 3% sIF NO CONTINUE TEST 
BIC #8116, SCTCSR - YES STOP TRANSMISSIONS 
BIC IT6, sTCc 
BIC @6IT6. @KS TURN OFF LINE CLOCK 
BR WAITER 
BIT @BITO, sDEVM :IS SLU1 UNDER TEST 
BEQ 2s sIF NO CHECK FOR SiV2 
BIT #BITé, SCTCSR 31S TRANSMITTER SHUTDOWN 


aa 
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2765 014462 001405 BEQ 3$ sIF NO CONTINUE TEST 

2766 014464 000405 BR WAITER :IF YES GO WAIT FOR POSSIBLE 

2767 

2768 014466 032777 000100 166300 2%: BIT $BIT6, STCSR :IS TRANSMITTER SHUT DOWN 

2769 014474 001001 BNE WAITER iIF YES GO WAIT FOR POSSIBLE 

2770 sLAST CHARACTER 

2771 014476 000002 3%: RTI sRETURN FROM INTERRUPT TO AWAIT NEXT 
2772 

2773 014500 005037 177776 WAITER: CLR PS sMAKE PROCESSOR PRIORITY 0 

2774 014504 012705 140000 MOV @-40000, R5 ;SET UWP LOOP COUNTER 

2775 014510 062705 000001 1%: ADD #1, RS 300 LOOP UNTIL RS = O 

2776 014514 0013575 BNE 18 

2777 014516 RESET ;STOP EVERYONE SHOULD BE DONE 

ll 014520 012706 001000 MOV #1000 , SP sRESET STACK AFTER LAST INTERRUPT 

2 

2780 014524 032737 000001 001156 CHECKIi: BIT #6ITO, sDEVM ;SLU1 UNDER TEST 

2761 014532 001 BEG CK2 :IF NO GO CHECK SLU2 DATA 

2762 014534 023737 014726 014732 CMP XMTCT1,RECCT1 :@ OF XMIT INTERRUPTS = REC INTERRUPTS 
2763 014542 001401 BEQ 1% AND CHECK DATA 
2784 014544 104155 ERROR 155 

2785 014546 0127 030450 1%: MOV BUF 1, R2 IRST DATA 

2766 014552 CLR RO sINITIALIZE TO FIRST DATA XMIT 

2767 014554 013704 014726 MOV XMTCT1, R4 sGET @ OF BYTES TRANSFERRED 

2768 014560 2s: CMPB CR2)+, RO sIS RECEIVED DATA = EXPECTED 

2789 014562 001406 BEQ 3% sIF YES CONTINUE 

2790 014564 114237 001026 MOVB -CR2), sBODAT sIF NO GET ERROR INFORMATION 

2791 014570 010037 001024 MOV RO, $GODAT 

2792 014574 104156 ERROR sSLU1 DATA COMPARISON ERROR 

2793 014576 INC R2 3 IF INUE ON ERROR a" POINTER 
2794 014600 3$: INC RO SUPDATE TO NEXT GOOD DATA 

2795 014602 077412 S08 R428 

2796 0134604 032737 000002 001156 CHECK2: BIT @8IT1. sDEVM 

2797 014612 O01 BEQ e $ DONE 

2796 014614 023737 014730 014734 CHP XMTCT2, RECCT2 ;@0F MET. ge a * REC INTERRUPTS 
2799 014622 001401 BEQ@ i$ sIF YES CHECK DATA 

2600 014624 104157 ERROR 157 s INTERRUPT COMPARISON ERROR 

2601 014626 012703 031050 1%: MOV eBUF2, R3 sINITIALIZE TO FIRST RECEIVED DATA 
2602 014632 1 CLR R sINITIALIZE TO FIRST XMIT DATA 
2605 014634 013704 014730 MOV XMTCT2, R4 ;GET @ OF BYTES TRANSFERRED 

2604 014640 1223501 2s: CMPS CR3)+, Ri i RECEIVED vg * EXPECTED DATA 
2605 014642 001406 BEG 3% F YES CONTINUE TESTING 

2606 014644 1143537 001026 MOVE -(R3), *BDDAT iF NO GET ERROR INFORMATION 

2607 014650 010137 001024 MOV Ri, AT 

2606 014654 104160 ERROR 160 3SLU2 DATA COMPARISON ERROR 

2609 014656 005203 INC R3 sIF COONTINUE ON ERROR RESET POINTER 
2610 014660 00520i 38: INC R1 sUPDATE TO NEXT GOOD DATA 

2811 014662 077412 S08 R4 2% ;LOOP UNTIL ALL DATA CHECKED 

2612 014664 0:3777 001060 166 FINIE: MOV STMPO, STVECT sRESTORE VECTORS 

2613 014672 013777 001062 166112 MOV $TMP1, SRVECT 

2614 014700 013777 001064 166120 MOV sTMP2. SCTVECT 

2615 014706 013777 1066 166106 MOV sTMPS. SCRVECT 

2616 014714 013777 001070 166110 MOV $TMP4, SRICVT 

=H 014722 000137 014740 JMP sE0P sF INISHED TESTING GO TO END OF PASS 
2819 014726 000000 XMTCT1: .WORD 0O 

2820 014730 000000 XMTCT2: .WORD O 


ee ee ee ee ee em ee ee 
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RECCT1: .WORD 
RECCT2: .WORD 
COUNT: .WORD 


ooo 


Fo 
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SEQ 0070 
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015110 


015112 
015114 
015116 
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001002 
001106 
100000 


015041 
001106 


015036 
000042 


051501 


000004 
015116 
000002 


001106 


000 
042116 
020123 


015114 


i3¢ 
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.SBTTL. END OF PASS ROUTINE 


jf PORSOSESESSSSEESSSEESSSSEESSSEESSEEESEEEEHEESOEESESEEESESESEESS 
;*INCREMENT THE PASS NUMBER ($PASS) 

;@TYPE “END PASS @XXXXX” (WHERE XXxXxXxX IS A DECIMAL NUMBER ) 

;*IF THERES A MONITOR GO TO IT 


;¢IF THERE ISN’ T JwRPP TO TSTl1 
sEOP: 
SCOPE 
CLR $TSTNM :3;ZERO THE TEST NUMBER 
INC $PASS s; INCREMENT THE PASS NUMBER 
BIC #100000, $PASS SOON! T ALLOW A NEG. NUMBER 
DEC (PC )>+ ; ;LO00P? 
SEOPCT: .WORD 1 
BGT $D0AGN 33 YES 
MOV CPC)+, aC PC)- : sRESTORE COUNTER 
SENDCT: .WORD 1 
sEOPCT 
TYPE » SENDMG s3TYPE “END PASS @” 
MOV $PASS, -(SP) 3:;SAVE $PASS FOR TYPEOUT 
TYPOS 33:3GO TYPE--DECIMAL ASCII WITH SIGN 
TYPE » SENULL 7 NULL CHARACTER 
$GET42: MOV 8042 ,RO :3GET MONITOR ADDRESS 
BEQ $00AGN s ;BRANCH IF NO MONITOR 
RESET ;;CLEAR THE WORLD 
S$ENDAD: JSR PC, CRO) ;3GO TO MONITOR 
NOP ::SAVE ROOM 
NOP 33FOR 
NOP ;;ACTL1 
$DOAGN: 
JP aC PC )- 3; sRE TURN 
$RTNAD: .WORD i a8 
SEMAL: .BYTE 3sNULL CHARACTER STRING 
SENDMG: .ASCIZ c1521297END PASS e/ 
WRPSW: MOVC(SP), -(SP) ;COPY RETUN PC 
MOV aC SP)+, (SP) sMOVE NEW PSW TO STACK 
ADD @2,-CSP) sADJUST JSR RETURN 
RTI ;POP RETURN PC € NEW PSW 
;SUBROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS 
CATCH: MOV (SP )+,RO ;GET ADORESS OF TRAP VECTOR + 4 
SUB 04 ,RO sADJUST TO POINT TO TRAP ADORESS 
MOV RO ,BOVECT ;sSTORE TRAP OR INTERRUPT ADDRESS 
MOV 2( SP), OLOPC ;GET PC WHERE TRAP OR INTERRUPT OCCURRED 
ERROR 161 ;REPORT ERROR 
HALT ;PROGRAM MUST BE RESTARTED AT THIS POINT 
OLDPC: .WORD oO 
BOVECT: .WORD 0 


a ee 


SEQ 0071 
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2681 


013716 


022737 
001001 
000000 


000002 
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163706 


001016 
001014 
163652 


001120 
015222 


163572 


MACY11 30( 1046) 
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SEQ OCO72 


WEI rrrrriririiriritiitiiiiiitiititt 
:*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;*SAVE THE ERROR ITEM NUMBER AND ADDRESS OF THE ERROR CALL 

;*AND GO TO SERRTYP ON ERROR 

;*¢THE SWITCH — PROVIDED BY THIS ROUTINE ARE: 


T ONE 
INHIBIT ERROR TYPEOUTS 
LOOP IN ERROR 


N ;sERROR=EMT AND N*ERROR ITEM NUMBER 


£ Fs SSSSSSSSHSHHSSSSSSSESESESESSESSESHSESESSESSESSSHESEHESSESHESESEEEEEEES 


;#SW15*4 

3@SW13-1 

3 @SWO9-1 

; *CALL 

3% ERROR 

SERROR: 

7$: INCB 
BEQ 
MOV 
INC 
MOV 
SUB 
MOVB 
BIT 
BNE 
JSR 
TYPE 

208: 
CMPB 
BNE 
MOVB 
JSR 

21%: .BYTE 

22s: 

2s: TST 
BPL 
HALT 

3%: CKSWR 
BIT 
BEQ 
MOV 

4$: TST 
BEG 
MOV 

S$: 
CMP 
BNE 
HALT 

6$: 
RTI 


li 
sTsr, » BISPLAY 


5% 
SESCAPE , (SP) 
@$ENDAD , 8642 
6$ 


sSET THE ERROR FLAG 
sDON'T LET FLAG GO TO ZERO 
IDISPLAY ag NUMBER te ERROR FLAG 


NCREMENT ERROR COUN 
GET ADORESS OF ERROR INSTRUCTION 


;STRIP AND SAVE THE ERROR ITEM CODE 
;SKIP TYPEOUT IF SET 

;SKIP TYPEOUTS 

:GO TO USER ERROR ROUTINE 


sHALT ON ERROR! 

sTEST FOR CHANGE IN SOFT-SUR 
;LOOP ON ERROR SWITCH SET? 

;6R IF NO 

:FUDGE RETURN FOR LOOPING 

;CHECK FOR AN ESCAPE ADDRESS 

;BR IF NONE 

;FUDGE RETURN ADDRESS FOR ESCAPE 


sACT-11 AUTO-ACCEPT? 
;BR IF NO 
; YES 


;RE TURN 


x ef 11/24 OPTIONS wie tn 
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Pil 


001075 


001014 


001016 


001160 
015354 


001075 
015372 


001075 


001075 


015432 
000 


16 
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.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


£ Fs FSSSOSSSSSSSSSSSSSHHSSSESSSSSESSESESSESSSSESESESESHEEEEESEEEEEEEHEEHHEOEOS 


s;*THIS ROUTINE USES THE “ITEM CONTROL BYTE” ($ITEMB) TO DETERMINE WHICH 


IS TO BE REPORTED. IT THEN OBTAINS, FROM 


THE “ERROR TABLE” (SERRTB), 


;#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SERRTYP: 


1$: 


2s: 
3$: 


4$: 
5%: 
6: 


78: 


TYPE » $CRLF 

MOV RO, -(SP) 
CLR RO 

BISB BOs ITEMB,.RO 
BNE 1$ 

MOV SERRPC , -( SP) 
TYPOC 

BR 6$ 

DEC RO 

ASL RO 

ASL RO 

ASL RO 

ADO @sERRTB,RO 
MOV CRO)+,2% 
BEQ 3$ 

TYPE 

. WORD 

TYPE . $CRLF 

MOV CRO)+, 48 
BEQ 5% 

TYPE 

WORD O 

TYPE » $CRLF 

MOV CRO),RO 
BNE 7% 

MOV (SP )+,RO 
TYPE . SCRLF 

RTS PC 

MOV @CRO)+,-CSP) 
TYPOC 

TST CRO) 

BEQ 6$ 

TYPE 8s 

BR 7$ 

-ASCIZ / / 

.EVEN 


+3 "CARRIAGE RETURN” € “LINE FEED” 
::SAVE RO 
ssPICKUP THE ITEM INDEX 


33IF ITEM NUMBER IS ZERO, JUST 
RROR 


S 
ye ala ASCIICALL DIGITS) 
$3 
;s8D0JUST THE INDEX SO THAT IT WILL 
$3 WORK FOR THE ERROR TABLE 


s3FORM TABLE POINTER 
ssPICKUP “ERROR Ti tiene 


33 "ERROR MESSAGE” POINTER GOES HERE 
33:"CARRIAGE RETURN” € “LINE FEED” 
ssPICKUP “DATA all POINTER 





GOES HERE 
IAGE RETURN” € “LINE FEED” 
$ t BTCKUP , a wl POINTER 


RETURN” € “LINE FEED” 





+3SAVE @(RO)+ FOR TYPEOUT 

33GO TYPE--OCTAL ASCIICALL DIGITS) 
:3I1S THERE ANOTHER NUMBER? 

::3BR IF NO 

ss TYPE TWOC2) SPACES 


3 sLO0P 
33TWOC2) SPACES 


—_- (ee 


Jo 
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: 


.SBTTL POWER DOWN AND UP ROUTINES 


eons MEP rrrrrrrrrrisiiiiritiiiiiitiitiiiiiti titi ity 
2965 s*POWER DOWN ROUTINE 

2984 9 s SHDOSODORSSSSSORSONSOSSSOOOSSESOSOONNSSSONONNSSSDEESCESESCCECCNS 
29865 015436 012737 015576 000024 @SILLUP ,GO@PWRVEC ;SET FOR FAST UP 

29866 015444 012737 000340 000026 0340 ,BOPWRVEC+2 ;PRIO:7 

2967 015452 010046 MOV RO, -CSP) sPUSH RO ON STACK 

2968 015454 010146 MOV Ri, -(SP) sPUSH R1 ON STACK 

2969 015456 010246 MOV 2.-(SP) sPUSH R2 ON STACK 

2990 015460 010346 MOV R3,-CSP) sPUSH R3 ON STACK 

2991 015462 010446 MOV R4,-(SP) sPUSH R4 ON STACK 

2992 015464 010546 MOV » - CSP) sPUSH RS ON STACK 

2993 015466 017746 1635346 MOV @SWR , - CSP ) ;PUSH @SWR ON STACK 

2994 015472 010637 015602 MOV SP , $SAVR6 s;SAVE SP 

2995 015476 012737 015510 000024 MOV e $PWRUP , BOPWRVEC ;SET UP VECTOR 

2996 015504 000000 HALT 

2997 015506 000776 BR .-e ;HANG UP 

2998 

2999 

3000 js SPARSE TESEESSEEAESESESEEEEEEEEEEEEEEEESEEEEEEEEEESEEEEREOEEEEES 
3001 

3002 } f SSRSSOKASESSESESESSEESESESSEEEEESEEOEESEOEAEEEEEEEEEHOEEEESEREEEES 
3003 015510 012737 015576 000024 ¢ @SILLUP ,@O@PWRVEC ;SET FOR FAST DOWN 

3004 015516 013706 015602 $SAVR6 , SP ;GET SP 

3005 015522 012677 163312 CSP )+,@SWR ;POP STACK INTO @SWR 

3006 015526 012605 MOV (SP)+,R5 

3007 015530 012604 MOV CSP )+,R4 ;POP STACK INTO R4 

3008 0155352 0126035 MOV CSP )+«.R3 s;POP STACK INTO R3 

3009 015534 012602 MOV (SP )+,R2 sPOP STACK INTO R2 

3010 015536 012601 MOV CSP)+,R1 OP STACK INTO R1 

3011 015540 012600 MOV CSP) ,RO STACK INTO RO 

3012 015542 012737 015436 000024 MOV @$PWRON, BEPURVEC. sSET UP THE POWER DOWN VECTOR 
3013 015550 012737 000340 000026 MOV 0340, BOPURVEC ¢2 ;PRIO:7 

3014 015556 005037 015602 CLR $SAVR6E sWAIT LOOP FOR THE TTY 

3015 015562 005237 015602 1$: INC $SAVRE sWAIT FOR THE INC 

3016 015566 001375 BNE i$ ;0F WORD 

3017 015570 104401 TYPE sREPORT THE POWER FAILURE 

3016 015572 015604 $PWRMG: .WORD $sPOWER sPOWER FAIL MESSAGE POINTER 

3019 015574 2 RTI 

3020 015576 $ILLUP: HALT ;THE POWEF UP SEQUENCE WAS STARTED 
3021 015600 000776 BR -2 ; BEFORE THE POWER DOWN WAS COMPLETE 
3022 015602 $SAVR6: O ;PUT THE SP HERE 

3023 015604 005015 047520 042527 sPOWER: .ASCIZ <15><12>"POWER” 

3024 015612 000122 


—— eS ee 
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040000 


163214 


163140 
001006 


001104 


001015 
163062 


iC6 
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POWER DOWN 


AND UP ROUTINES 
.SBTTL SCOPE HANDLER ROUTINE 


£ Fs FSSSSSSSSSSSSSSSSSSSSSSSSSESESSSSESSESESSESESESESEEEEEEEOEHEESEESEEEOE 


s¢THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 


;#AND LOAD THE TEST NUMBERCSTSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>) 


:#AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


;#SW14-)1 LOOP ON TEST 
;#SWO9=1 LOOP ON ERROR 
; #CALL 
;* SCOPE 3: SCOPE*IOT 
$SCOPE : 
CKSWR ;;TEST FOR CHANGE IN SOrT-SWR 
1$: BIT #681T14,8SWR ;;LOOP ON PRESENT TEST? 
BNE sOVER 33sYES IF SWi4-1 
;O@@GOSTART OF re FOR THE XOR TESTER@@OG0 
$XTSTR: BR 331F THE “XOR” TESTER CHANGE 
sTHIS INSTRUCTION TO A “NOP” (NOP=240) 
MOV SGERRVEC,-(SP) ;;SAVE S HE ERROR VECTOR 
#5% , BOERRVEC 3:SET FOR TIMEOUT 
TST 80177060 $3 OUT ON XOR? 
MOV (SP)+,@@ERRVEC ;;RESTORE THE ERROR VECTOR 
BR $SVLAD ::GO TO THE NEXT TEST 
S$ CMP (SP )+,CSP)+ 3sCLEAR THE STACK AFTER A TIME OUT 


MOV 0) ssRESTORE THE ERROR VECTOR 
BR 7$ ssLOOP ON THE PRESENT TEST 
$6: OO OF 3 Ay THE XOR TESTER@SG0e 


4 TST8 3:HAS AN ERROR OCCURRED? 
BEQ $SVLAD +R IF NO 
BIT #8IT09,8SUR ;:LO0P ON ERROR? 
BEQ 44 ;;8R IF NO 
7$: oa po , $LPADR i ySET LOOP ADDRESS TO LAST SCOPE 
4$: CLRB sERFLG 33ZERO THE ERROR FLAG 
$SVLAD: INCB $TSTNM ; }COUNT TEST NUMBERS 
MOVB $TSTNM, $TESTN i ySET TEST NUMBER IN APT MAILBOX 
MOV (SP), §LPADR 3:SAVE SCOPE LOOP ADDRESS 
MOV (SP), $LPERR :;SAVE ERROR LOOP ADDRESS 
CLR SCAPE ;:;CLEAR THE ESCAPE FROM ERROR ADORESS 
MOVB 01, SERMAX ;sONLY ALLOW ONEC1) ERROR ON NEXT TEST 
$OVER: MOV $TSTNM, @DISPLAY ; DISPLAY TEST NUMBER 
MOV $LPADR (CSP) ;;FUDGE RETURN ADDRESS 
RTI ;3;FIXES PS 


SEQ 0075 


ae o-oo SSS -s---  = eeteee 
- - _——_ 


OFB. 


3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 


3081 


PEREPER ESET L ELT it: 


Pll 


112737 
112737 
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001100 
016142 
000004 


001102 
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SCOPE HANDILER ROUTINE 


i Fs SSSSSSSSSSSESSSSSHSSSSSSSEHSESSESEESESOESSEEEEHEHEEEHEESEEEEEECEEE SESE ES 


.SBTTL APT COMMUNICATIONS ROUTINE 


SF FSSSSASSSSSSHHSHESEASHEHESASESESESHSSESHEEESSEHESSEEESEEEEEEEEEEEEHEOEEES 


$ATY1: MOVB 
$ATY3: MOVB 
BR 
$ATY4: MOVB 
SATYC: 
MOV 
MOV 
TST8 
BEQ 
CMPB 
BNE 
BITB 
BEQ 
MOV 
ADD 
1%: TST 
BNE 
MOV 
2s: TST8 
BNE 
SUB 
ASR 
MOV 
MOV 
BR 
3$: MOV 
ADD 
MOV 
JSR 
4%: . WORD 
5$: 
10%: TSTB 
BEG 
TST 
BEQ 
11$ TST 
BNE 
MOV 
INC 
12s: ADD 
CLRB 
CLRB 
CLRB 
MOV 
MOV 
RTS 
$MFLG: .BYTE 
$LFLG: .BYTE 
$FFLG: .BYTE 
-EVEN 


O1,$FFLG 


61,8FFLG 
RO, -CSP) 
R1,-CSP) 
sMFLG 


5$ 
@APTENV , $ENV 


- 370 REPORT FATAL ERROR 


;TO TYPE A MESSAGE 
sTO ONLY REPORT FATAL ERROR 


sPUSH RO ON STACK 

sPUSH R1 ON STACK 
sSHOULD TYPE A MESSAGE? 
:IF NOT: BR 

S OPERATING UNDER APT? 
:IF NOT: BR 

+SHOULD SPOOL MESSAGE? 
:IF NOT: BR 

sGET MESSAGE ADORESS 
sBUMP RETURN ADDRESS 
sSEE IF DONE W/ LAST XMISSION? 


sFIND END OF MESSAGE 


;SUB START OF MESSAGE 

:GET MESSAGE LENGTH IN WORDS 
;PUT LENGTH IN MAILBOX 

sTELL APT TO TAKE MESSAGE 


sPUT MSG ADOR IN JSR LINKAGE 
sBUMP RETURN ADORESS 

sPUSH 177776 ON STACK 

;CALL TYPE MACRO 


:SHOULD REPORT FATAL ERROR? 
:IF NOT. GR 

sRUNNING UNDER APT? 
:IF MOT: BR 

3; INISMED LAST MESSAGE? 
: IF : WAIT 

;GET ERROR @ 

;TELL APT TO TAKE ERROR 
;BUPP RETURN ADDRESS 
‘CLEAR FATAL FLAG 
;CLEAR LOG FLAG 

SCLEAR MESSAGE FLAG 
:POP STACK INTO Ri 

;POP STACK INTO Ri 
;RETURN 















;LOG FLAG 
;FATAL FLAG 


SEQ 0076 


- me eee _ 
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000200 
000001 


000100 
000040 


rio 
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APT COMMUNICATIONS ROUTINE SEQ 0077 


APTSIZE=200 


APTCSUP =040 
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012746 


105366 
002770 
004737 
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001057 


000002 
060001 


000100 


016304 
015774 


000040 


001120 
001121 


001121 
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APT COMMUNICATIONS ROUTINE 


TYPE ROUTINE 


5 PRORAEEEESEEESEEEEEEEEREEEEEEEESEREEEEEEEEEEESDEEDEDESERODEEOES 
;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 


; *®NOTE1: 

; *NOTE2: 

;*NOTES: 

;* 

;*CALL: 

:# TYPE 

; *OR 

;* TYPE 

;* MESADR 

;* 

$TYPE TSTB 
BPL 
HALT 
BR 

is: MOV 
MOV 
CMPB 
BNE 
BITB 
BEQ 
MOV 
JSR 

61$: F 

623: BITB 
RANE 

2s: MOVE 
t «= 
TST 

60$: MOV 

3$: ADD 
RTI 

4$: CMPB 
BEQ 
CMPB 
BNE 
TST 
TYPE 
$CRLF 
CLRB 
BR 

5$: JSR 

6$: CMPB 
BNE 
MOV 

7$: DECB 
BLT 
JSR 


$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
$FILLC CONTAINS THE CHARACTER TO FILL AFTER. 


;#1) USING A TRAP INSTRUCTION 
SADR 


$TPFLG 
1$ 


62, (SP) 
@HT , CSP) 
8$ 
@CRLF , CSP) 
S$ 

CSP )+ 


$CHARCNT 
es 


PC, $TYPEC 
$FILLC,(CSP)-+ 


2$ 
$NULL , -(SP) 
1(SP) 

6$ 

PC, $TYPEC 


:sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


3:I1S THERE A TERMINAL? 


+;BR IF YES 
; sHALT HERE IF NO TERMINAL 
;;LEA 

> :;SAVE RO 

3:;GET ADDRESS A ASCTZ STRING 
s sRUNNING IN APT MODE 

33NO,GO CHECK AFOR APT CONSOLE 
33 MESSAGE TO APT 


::YES.SKIP TYPE OUT 
;PUSH ACTER TO BE TYPED ONTO STACK 
+ BR IF IT ISN’T THE TERMINATOR 
33IF TERMINATOR POP IT OFF THE STACK 
;;RESTORE RO 
:;ADJUST RETURN PC 
7 RET 
; ;BRANCH IF <HT> 


; ;BRANCH IF NOT <CRLF> 


;;POP <CR><LF> EQUIV 
;;TYPE A CR AND LF 


;;CLEAR CHARACTER COUNT 


E 
3;1S IT TIME FOR FILLER CHARS. ? 
;3IF NO GO GET NEXT CHAR. 
; ;GET : OF FILLER CHARS. NEEDED 
;:AND THE NULL CHAR. 
;;D0ES A NULL NEED TO BE TYPED? 
;;BR IF NO--GO POP THE NULL OFF OF STACK 
+360 TYPE A NULL 


SEQ 0078 


—————— es eee — 


TT LL 


-* 


105337 
000770 
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016564 


016564 


162316 
000002 


Se ee ee 


STYPEC: 


1018: 


102%: 
10%: 


18; 


INCB 
SCHARCNT : . WORD 
STYPEX: RTS 


B? 
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esTPS 
+ 


2:00 “OT COUNT AS A COUNT 
: 3. 00° 


s:REPLACE TAB WITH SPACE 

23 TYPE A SPACE 

1 ;GRANCH IF NOT aT 

3: TAB STOP 
23P0P SPACE OFF STACK 

: GET NEXT CHARACTER 


;:;CHAR IN KYBD BUFFER? 
:3:6R IF NOT 


33;GET CHAR 
s3STRIP EXTRANEOUS BITS 
CHAR XOFF 


:3;68R IF NOT 








33WAS IT XON? 
33;B8R IF NOT 


s3FIX STACK 
;;WAIT UNTIL PRINTER IS READY 


1sLOAD CHAR TO BE TYPED INTO DATA REG. 


3381S CHARACTER A CARRIAGE RETURN? 
3 ;BRANCH IF NO 

1. CHARACTEP COUNT 

1318S omc ree A LINE FEED? 





s sCHARACTER COUNT STORAGE 


~SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


£ FE SSSSSSSSSSSSSSSSSSHESSSESHASASSSSESSSSSSSSSESSSSSSESESEHSSEOHOHEHOEEEE 


TO CHANGE A 16-BIT BINARY NUMBER 70 A 6-DIGIT 


THIS ROUTINE USED 
s*OCTAL CASCII) NUMBER 1° TYPE IT. 


oo rg ---ENTER HERE 15 SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
i : 

;* MOV NUM, -(SP) ssNUMBER TO BE TYPED 

;@ TYPOS 3:CALL FOR TYPEOUT 

3¢ BYTE WN :3N*1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

;¢ BYTE A 33M*°1 OR O 

;@ ssi*TYPE LEADING ZEROS 

;¢ 330=SUPPRESS LEADING ZEROS 


7* 
s¢$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


SEQ 0079 


ee eee eee 


f 


' 
a 
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CKOFB.P11  O4-JAN-65 11:44 BINARY TO OCTAL (ASCII) AND TYPE 
3245 :*6TYPOS OR sTYPOC 
Boas s@CALL: 
3247 ;@ MOV NUM, -(SP) : sNUMBER TO SE TYPED 
3246 :° TYPON ::CALL FOR TYPEQUT 
3249 3¢ , 
3250 + +p HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3251 7 @CALL: 
3252 :¢ MOV NUM, -( SP) s;NUMBER TO BE TYPED 
3253 ;¢ TYPOC s;CALL FOR TYPEQUT 
3254 
3255 016570 017646 000000 sTYPOS: MOV OC SP), -( SP) :sPICKUP THE MODE 
3256 016574 116637 000001 017015 MOVB 1(SP), SOF ILL 33LOAD ZERO FILL SWITCH 
3257 016602 112637 017015 MOVB (SP)+,SOMODE-+1 ;;NUMBER OF DIGITS TO TYPE 
3256 016606 062716 0900002 ADO @2,(SP) + ;sADJUST RETURN ADORESS 
3259 016612 BR $TYPON 
3260 016614 112737 000001 017015 %sTYPOC: MOvB #1, SOF ILL 33SET THE ZERO FILL SWIT 
3261 016622 112737 000006 017015 MOVB 06 , SOMODE +1 3sSET FOR SIX(6) DIGIT‘ 
3262 0166350 112737 000005 017012 %sTYPON: MOVB #5, SOCNT 33SET THE ITERATION CCUNT 
3265 016636 010346 MOV R3,-(SP) 3:SAVE R3 
3264 016640 010646 MOV R4, -( SP) s:SAVE R4 
3265 016642 010546 MOV » - (SP) 3 :SAVE RS 
3266 016644 115704 017015 MOvVB SOMODE +1 ,R4 + GET THE NUMBER OF DIGITS TO TYPE 
3267 016650 005404 NEG Ra 
3266 016652 062704 000006 ADD 06 ,R4 : sSUBTRACT IT FOR MAX. ALLOWED 
3269 016656 110437 017014 MOVB R4 , SOMODE :s;SAVE IT FOR USE 
3270 016662 1135704 017013 MOVB SOF ILL ,R4 3:GET THE ZERO FILL SWITCH 
3271 016666 016605 000012 MOV 12¢SP),RS ssPICKUP THE INPUT NUMBER 
3272 016672 005003 CLR R3 ::CLEAR THE OUTPUT WORD 
3273 016674 006105 1$: ROL RS ) ROTATE MSB INTO "C” 
3274 016676 000404 BR 38 33GO OO MSB 
3275 016700 006105 2s: ROL RS ; FORM THIS DIGIT 
3276 016702 006105 ROL RS 
3277 016704 006105 ROL RS 
3278 016706 010503 MOV RS ,R3 
3279 016710 006103 3%: ROL RS 3;GET LSB OF La, § _—" 

016712 105337 017014 DECS sOMODE 3sTYPE THIS DIGIT 
$2@1 016716 100016 BPL 78 338R IF NO 
016720 042703 177770 BIC #177770,R3 1 GET RID OF JUNK 

3265 016724 001002 BNE ae 33TEST FOR O 
3264 016726 005704 TST aS s3SUPPRESS THIS 0? 
32685 016730 001403 BEQ 5% Be Ss 
3266 016732 005204 4$: INC Ra 3:D0N’'T SUPPRESS ANYMORE 0'S 
3267 016734 052703 000060 BIS &'O,R3 13MAKE THIS DIGIT ASCII 
3268 016740 052703 000040 5$: BIS @ ,R3 3 sMAKE = e NOT ALREADY 
3269 016744 110337 017010 MOVE R388 3:SAVE FOR T 
3290 016750 104401 017010 TYPE 8% 33G0 TYPE mas DIGIT 
$291 016754 105337 017012 78: DECB SOCNT ; COUNT BY 1 
3292 016760 003347 BGT 2s 330R IF MORE TO DO 
3293 016762 BLT 64 :3:6R IF 
3294 016764 INC Ra ss INSURE LAST DIGIT ISN'T A BLANK 
3295 016766 000744 BR 2s :3G0 00 THE LAST DIGIT 
3296 016770 012605 6%: MOV (SP)+,R5 + sRESTORE RS 
3297 016772 012604 MOV (SP )+ ,.R4 s sRESTORE R4 
3296 016774 012603 MOV (SP )+,R3 : sRESTORE RS 
3299 016776 016666 000002 000004 MOV 2( SP), 4( SP) 33SET THE STACK FOR RETURNING 
3300 017004 012616 MOV (SP)+, CSP) 
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3301 
3 


017006 
017010 
01701) 
017012 
017015 
017014 


017016 
017016 


04 - JAN - 


85 


020200 
000020 


000055 
017232 
000040 


017222 


000010 


177777 


MACY11 30( 1046) 


BINARY TO OCTAL 
RTI 
6%: .BYTE 
.BYTE 
SOCNT: .BYTE 
SOFILL: .BYTE 
SOMODE : 


. WORD s sNUMBER 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE 


oooco 


1 SRE TURN 
+s STORAGE FOR ASCII DIGI! 
+s TERMINATOR FOR TYPE ROUTINE 
:;0CTA DIGIT COUNTER 
3:ZERO FILiL SWITCH 
OF DIGITS TO TYPE 
ROUTINE 





:*THIS ROUTINE IS USED TO CHANGE A Se tt on NUMBER TO A 5-DIGIT 


:*SIGNED DECIMAL (ASCII) NUMBER AND T 
UR y gly A SPACE OR A MINUS SIGN WILL BE TYPED 


s*NUMBER IS 


POSITIVE 


s@BEFORE THE FIRST DIGIT OF T 
;*REPLACED WITH SPACES. 


:*CALL: 
3% MOV 
3¢ TYPOS 
sTYPDS: 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
BPL 
NEG 
MOVB 
1%: CLR 
MOV 
MOvVB 
2%: CLR 
MOV 
38%: SUB 
BLT 
INC 
BR 
4%: ADD 
TS? 
BWE 
TSTB 
BMI 
53: ASLB 
Bcc 
MOVB 
6$: 61S 
7$: BIS 
MOVB 
TST 
CMP 
BLT 
BGT 
MOV 
BR 
8%: TSTB 


NUM, -( SP) 


ING ON WHETHER THE 
. LEADING ZEROS WILL ALWAYS BE 


s;PUT THE BINARY NUMBER ON THE STACK 
3:GO TO THE ROUTINE 


ssPUSH RO ON STACK 
s3sPUSH R1 ON STACK 
STACK 





TUP THE OUTPUT POINTER 
33SET THE FIRST CHARACTER TO A BLANK 
CLEAR THE BCD NUMBER 
3sGET THE CONSTANT 
33FORM THIS BCD DIGIT 


:36R DONE 
s sINCREASE THE BCD DIGIT BY 1 


33ADO BACK THE CONSTANT 
s3sCHECK IF BCD DIGIT=0 
THROUGH IF 0 


s3F 
3:STILtL DOING LEADING 0'S? 
$3 YES 


3 MAKE 8CD DIGIT ASCII 

:3MAKE IT A SPACE IF NOT ALREADY A DIGIT 
33PUT THIS CHARACTER IN THE OUTPUT BUFFER 
13 T INCREMENTING 

: ;CHECK THE TABLE INDEX 

:3;GO DO THE NEXT DIGIT 


33G0 TO EXIT 
33GET THE L 


+3GO CHANGE TO ASCII 
;:;WAS THE LSD THE FIRST NON-ZERO? 


SEQ 006i 


rm were ee 


‘ 
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CUKDFB P11 04-JAN-85 11:44 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
3357 017160 100005 BPL ‘y4 3;8R IF NO 
3358 017162 116663 177777 177776 MOVB -10SP), -2CR3) +:VYES--SET THE SIGN FOR TYPING 
3359 017170 105015 93: CLRB (R3) ::SET THE TERMINATOR 
3360 017172 012605 MOV (SP)+,RS ::P0P STACK INTO R5 
3361 017174 012605 MOV (SP)+,R3 3:P0P STACK INTO R3 
017176 012602 MOV (SP )+,R2 ;:P0P STACK INTO R2 
3363 017200 012601 MOV (SP)+,R1 :3?0P STACK INTO Ri 
3364 017202 012600 MOV (SP )+,RO 13;P0P STACK INTO RO 
3365 017204 104401 017232 TYPE . $06LK ;:NOW TYPE THE NUMBER 
3366 017210 016666 900002 000004 MOV 2( SP), 4¢(SP) +sADJUST THE STACK 
3367 017216 012616 MOV (SP )+, (SP) 
3366 017220 000002 RTI ; ;RETURN TO USER 
3369 017222 023420 $OTBL: 10000. 
3370 017224 001750 1000. 
3371 017226 000144 100 
3372 017230 9000012 10 
3373 017232 $O0BLK BLKwW 4 


ee ce ee 


Pf 
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CUKDFB.P11  04-JAN-85 11:44 SEQ 0082 

3375 

3376 .SBTTL TTY INPUT ROUTINE 

277 

= bs LE SSSSSSSSSSSSSSSSSSSSSSHSESSSESSSESSESHSESSESEESESEHESEEHEESEEHEESHEOS 
3379 L 

3380 

3361 3 SSOFTUARE SURTCH REGISTER CE ROTI. 
3382 ;*SOFTWARE SWITCH REGISTER CHANGE ROUTI 

3363 s@ROUTINE IS ENTERED FROM THE TRAP WADLER. AND W 
3384 ;*SERVICE THE TEST FOR CHANGE IN SOFTWARE éuITCH REGISTER TRAP CALL 
3365 ;@WHEN OPERATING IN TTY FLAG MODE. 
3386 017242 022737 000176 001040 $CKSWR: CMP @SWREG . SWR 1331S THE SOFT-SWR SELECTED? 
3387 017250 001074 BNE 15% 3 ;\BRANCH IF NO 
33866 017252 105777 161566 TST8 asTKS s3CHAR THE 
3369 017256 100071 BPL 15% s3I1F NO, DON’T WAIT AROUND 
3390 017260 117746 161562 MOVB OS TKB, -( SP) 3 s SAVE CHAR 
3391 017264 042716 177600 BIC @tC177,(SP) ssSTRIP-OFF THE ASCII 
3392 017270 022726 000007 CMP @7,(SP)-+ :3:1S IT A CONTROL G? 
3393 017274 OO1 BNE 15% 33NO, RETURN TO USER 
3394 017276 123727 001034 000001 ChPB SAUTOB , 1 +;ARE WE RUNNING IN AUTO-MODE? 
4 017304 001456 BEQ 15% ; ;BRANCH IF YES 
3297 017306 104401 017777 TYPE » §$CNTLG 3sECHO THE CONTROL-G (1G) 
3396 017312 104401 020004 $GTSWR: TYPE » SMSWR saT CURRENT CONTENTS 
3399 017316 013746 000176 MOV SWREG, -( SP) :3SAVE SWREG FOR TYPEOUT 
3400 017322 104402 TYPOC 33GO TYPE--OCTAL ASCIICALL DIGITS) 
3401 017324 104401 020015 TYPE . SMNEW ;;PROMPT FOR NEW SUR 
3402 017330 005046 19%: CLR -(SP) $8 COUNTER 
3403 017332 CLR -(SP) 13; THE NEW SUR 
3404 017334 105777 161504 7$: TsTs esTKS ;:CHAR THERE? 
3405 017340 100375 7$ +sIF NOT TRY AGAIN 
3407 017342 117746 161500 MOVE @sTKB, -( SP) :3PICK UP CHAR 
3408 017346 042716 177600 BIC 6tC177,(SP) 3s:MAKE IT 7-BIT ASCII 
3410 
3411 
3412 017352 021627 000025 9%: CMP (SP), @25 3318S IT A CONTROL -U 
3413 017356 001005 BNE 10% ; ;BRANCH IF NOT 
3414 017360 104401 017772 TYPE » SCNTLU 33;YES, ECHO CONTROL-U (tU) 
3415 017364 062706 000006 20$: ADO 06, SP ; s IGNORE PREVIOUS INPUT 
oes 017370 000757 BR 19% PLE’ S TRY IT AGAIN 
3418 
3419 017372 021627 000015 108: CMP (SP),¢@15 3318S IT A <CR>? 
3420 017376 001022 BNE 16% ;3:6R IF NO 
3421 017400 005766 000004 TST 4(SP) :3YES, IS IT THE FIRST CHAR? 
3422 017404 001403 BEQ 118 ; ;GRANCH IF YES 
3423 017406 016677 000002 161424 MOV 2( SP), @SWR 3:SAVE NEW SWR 
3424 017414 062706 000006 11%: ADO P ;;CLEAR UP eR 
3425 017420 i 1 001075 14% TYPE . $CRLF 23€ <CR> AND < 
3426 017424 123727 0C1035 000001 CMPB $INTAG, @1 : ;sRE-ENABLE bt ks _ INTERRUPTS? 
3427 017432 001003 BNE 15% : ;BRANCH IF 

017434 012777 000100 161402 MOV #100, 8¢TKS 3 sRE-ENABLE TTY KBD INTERRUPTS 
017442 15%: RTI ; sRETURN 

3430 017444 004737 016446 16%: JSR PC, $TYPEC +:ECHO CHAR 


> 
/ 
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3431 017450 021627 000060 CMP (SP), 060 ;:;CHAR «< 0? 

017454 002420 BLT 18% + :;BRANCH IF YES 
3433 017456 021627 00906’ CMP (SP), 067 1sC > 7? 
3434 017462 005015 BGT 186% 1 :;BRANCH IF YES 
3435 017464 042726 000060 BIC #60 ,¢SP)>+ ssSTRIP-OFF ASCTI 
3436 017470 005766 000002 TST 2( SP) 1331S THIS THE FIRST CHAR 
3437 017474 001403 BEQ 17% +: BRANCH IF YES 
34386 017476 006316 ASL (SP) 33NO, SHIFT PRESENT 
3439 017500 006*16 ASL (SP ) :3 CHAR OVER TO MAKE 
3440 017502 004516 ASL (SP) ; ROOM FOR NEW ONE 
3441 017504 005266 000002 17%: INC 2( SP ) +sKEEP COUNT OF CHAR 
3442 017510 056616 177776 BIS -2(SP), (SP) +:;SET IN NEW CHAR 
3443 017514 000707 BR 7$ 3:GET THE NEXT ONE 
3444 017516 104401 001074 188: TYPE . $QUES 33 TYPE ?<CR><LF> 
3445 017522 000720 BR 20% ssSIMULATE CONTROL -U 
3446 .OSABL LSB 
3447 
3449 5 E PCSOSASAASSHERSESESEESEESHEESEEEEEEESEEEESEEESESEESEESESEEESESES 
ey ory ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

;* g 

3452 78 ROCHR 3; INPUT A SINGLE CHARACTER FROM THE TTy 
3453 ;* RETURN HERE ;sCHARACTER IS ON THE STACK 
3454 ;* ssWITH PARITY BIT STRIPPED OFF 
3457 017524 011646 $ROCHR: MOV (SP), -CSP) 3sPUSH DOWN THE PC 
3456 017526 016666 000004 000002 MOV 4(SP).2(SP) 33;SAVE THE PS 
3459 017534 105777 161304 1%: TSTB asTKS ;;WAIT FOR 
3460 017540 100375 BPL if 334 CHARACTER 
3461 017542 117766 161300 000004 MOVB @tTKB .4(SP) 3;sREAD THE TTY 
3462 017550 042766 177600 000004 BIC @tC<177>,4(SP) ;;GET RID OF JUNK IF ANY 
3463 017556 026627 000004 000023 CMP 4(SP), 023 2318S IT A CONTROL -S? 
3464 017564 001013 BNE 3% ; sBRANCH IF NO 
3465 017566 105777 161252 2s: TSTé esTKS ssWAIT FOR A CHARACTER 
3466 017572 100375 BPL os 33LO0P UNTIL ITS THERE 
3467 017574 117746 161246 MOVB Os TKB, -CSP) 3 sGET TER 
3468 017600 042716 177600 BIC @?C177,(SP) ssMAKE IT 7-BIT ASCII 
3469 017604 022627 000021 CMP CSP )-¢, 021 2331S IT A CONTROL -Q? 
3470 017610 001366 BNE es 33IF NOT DISCARD IT 
3471 017612 000750 BR is ;sYES, RESUE 
3472 017614 026627 000004 000021 3%: Ch 4( SP), @¢XON :3:IS IT A RANDOM XON? ;RANOO1 
3473 017622 001744 BEQ 1% 7 ;BRANCH YES ;RANOO1 
3474 017624 026627 000004 000140 CMP 4(SP), #140 3318S IT UPPER CASE? 
3475 017632 002407 BLT 4% : :BRANCH IF YES 
3476 017634 026627 000004 000175 CMP 4(SP),@175 :3I1S IT A SPECIAL CHAR? 
3477 017642 003003 BGT a4 + :;BRANCH IF YES 
3476 017644 042766 000040 000004 BIC 040 ,4( SP) ;;MAKE IT UPPER CASE 
3479 017652 000002 4%: RTI ::GO0 BACK TO USER 
3480 5S SSSSSESAESEHASEHSEEEESESSHESSESSEHSESSEEEEEHESSEEEEEEEEAOESESEES 
34861 ;*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
3482 ;*CALL: 
3483 :* ROLIN ss INPUT A STRING FROM THE TTY 
3484 ;* RETURN HERE + sADORESS OF FIRST CHARACTER WILL BE ON THE STACK 
3485 4 +: TERMINATOR WILL BE A BYTE OF ALL O'S 


eee 


H7 
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3487 017654 010346 $ROLIN: MOV R3,-CSP) :;SAVE R35 
017656 012703 017762 1%: OSTTYIN,R3 33GET ADDRESS 
3489 017662 022703 017772 2s: CMP OSTTYINeS. ,R3 ; ;BUFFER FULL? 
3490 017666 101405 BLOS 43 +:;8R IF YES 
3491 017670 104410 ROCHR 33GO READ ONE CHARACTER FROM THE ITTY 
3492 017672 112613 MOVB (SP)+,CR3) 33GET CHARACTER 
3493 017674 122713 000177 10%: CMPB #177,CR3) 3315 IT A RUBOUT 
3494 017700 001003 BNE 3% 33SKIP IF NOT 
3495 017702 104401 001074 4$: TYPE » SQUES ssTYPE A ‘?’ 
3496 017706 000763 BR i$ 3;CLEAR THE BUFFER AND LOOP 
3497 017710 111337 017760 3$: MOVB (R3),98 :3ECHO THE CHARACTER 
3496 017714 104401 017760 TYPE 98 
3499 017720 122723 000015 CMPB 15,(R3)>- + ;CHECK FOR RETURN 
3500 017724 001356 BNE es 33LO0P IF NOT RE 
3501 017726 105063 177777 CLRB -1C€R3) ;;CLEAR RETURN (THE 15) 
3502 017732 104401 001076 TYPE . $LF ;3 TYPE A LINE FEED 
3503 017736 012603 MOV (SP)+,R3 ; sRESTORE R3 
3504 017740 011646 MOV (SP), -CSP ;;ADJUST THE STACK AND PUT ADDRESS OF THE 
3505 017742 016666 000004 000002 MOV 4(SP),2¢SP) 33 FIRST ASCII CHARACTER ON IT 
3506 017750 012766 017762 000004 MOV @sTTYIN, 4(SP) 
3507 017756 000002 RTI 3 sRETURN 
3506 017760 000 9$: .BYTE O + sSTORAGE FOR ASCII CHAR. TO TYPE 
3509 017761 000 .BYTE 0 3s TERMINATOR 
3510 017762 000010 $TTYIN: .BLKB 8. + sRESERVE 8 BYTES FOR TTY INPUT 
3511 017772 052536 005015 000 $SCNTLU: .ASCIZ /tU/<15><12> s;CONTROL “U” 
3512 617777 136 006507 000012 $CNTILG: .ASCIZ /tG/<15><12> ;;CONTROL “G” 
3513 005015 053523 020122 %$MSWR: .ASCIZ <15><12>/SWR = / 
3514 020012 020075 000 
3515 070015 040 047040 053505 ‘SMNEW: .ASCIZ / NEW = / 
3516 020022 036440 000040 
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017016 
017312 
017242 


017524 
017654 
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000004 000002 
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TTY INPUT ROUTINE 


.SBTTL TRAP DECODER 


WETIISIIII III rrrrrriiiiiiiiitiiiiiiitiititiitiiiiitiy 
;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
;#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;#GO TO THAT ROUTINE. 


STRAP: MOV RO, -( SP) ;:SAVE RO 
MOV 2(SP),RO 33GET TRAP ADDRESS 
TST -CRO) :;BACKUP BY 2 
MOVB CRO) ,RO ;:GET RIGHT BYTE OF TRAP 
ASL RO ;sPOSITION FOR INDEXING 
MOV s$TRPADCRO),RO ; INDEX TO TABLE 
RTS RO 3:GO TO ROUTINE 


3;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


$TRAP2: MOV (SP), -CSP) ;;MOVE THE PC DOWN 
MOV 4(SP),2(SP) :sMOVE THE PSW DOWN 
RTI ;sRESTORE THE PSW 
.SBTTL TRAP TABLE 


s;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE “TRAP“ INSTRUCTION. 





: ROUTINE 

STRPAD: . WORD $TRAP2 
STYPE 3 sCALL*TYPE TRAP +1€104401) TTY TYPEQUT ROUTINE 
$TYPOC ;;CALL=TYPOC TRAP +2( 104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS TRAP + 3( 104403) ZEROS ) 
STYPON ;;CALL=TYPON TRAP +4( 104404 ) 
$STYPDS ;;CALL«TYPDS TRAP +S5( 104405) TYPE DECIMAL NUMBER (WITH SIGN) 
SGTSWR ;;CALL©GTSUR TRAP +6( 104406) GET SOFT-SWR SETTING 
SCKSWR ;;CALL=CKSWR TRAP +7( 104407) TEST FOR CHANGE IN SOFT-SWR 
$ROCHR ;; CALL =RDOCHR TRAP +10( 104410) TTY TYPEIN CHARACTER ROUTINE 
SROLIN ;;CALL=RDOLIN TRAP 110104411) TTY TYPEIN STRING ROUTINE 


eee 


SEG O06 


a 


J | 
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3563 .SBTTL ECHO TEST 
3564 2s SSSSSSSSSSSESSSSSSSSSSSSSSSSSSSESSSSESESSSSESSSHSESCEESESEESEEHEEEEEEOEE 
3565 :*THIS ROUTINE WILL ECHO ANY CHARACTER TYPED 
3566 :@ON EITHER SLU1 OR SLU2. DEFAULT IS TO THE CONSOLE DEVICE SiUl. 
3567 | oTHE TEST IS HALTED BY TYPING A CONTROL-C 
3568 :@TEST CAN BE RESTARTED AFTER HALTING BY JUST CONTINUING 
3569 5s SSSSSSSSSSSSSHSSSSSSSSSSESSSSSSSHSSEESSSSESSSSSSESSSESEEEHSESCESEEESEEEE 
3570 020106 012737 000176 001040 ECHO: MOV OSWREG , SWR sSET UP FOR SOFTWARE SWITCH REGISTER 
3571 920114 012737 000174 001042 MOV @DISPREG, DISPLAY ;AND DISPLAY REGISTER 
3572 020122 032777 90002C 160710 BIT #BIT4, SSuR sCHECK IF BIT4 SET IN SWITCH REG 
3573 020130 001403 BEG i$ sIF NOT THEN SELECT SLUI1 
3574 020132 012703 002770 MOV @RCSR, RS sIF BIT4 SET THEN SELECT SLU2 
3575 020136 000402 BR 2s 
3576 020140 012703 003000 i$: MOV @CRCSR, R3 sSELECT SLU1 (THIS IS DEFAULT DEVICE) 
3577 020144 000005 2%: RESET ;CLEAR EVERYTHING 
3578 020146 112773 9000052 000006 MOVB @' e, 86(R3) 3 TRANSMIT PROMPT “«” 
3579 020154 105773 000000 3$: TSTB acrs) sWAIT FOR INPUT 
3580 020160 100375 BPL 3% 
3561 020162 117373 000002 000006 MOVB 82CR3),@6CR3) sECHO INPUT 
3582 020170 017300 000002 MOV B2(R3),RO sSTORE INPUT 
3583 020174 100023 BPL 6% :6R IF “ERROR“NOT st. 
35864 020176 052701 010000 BIS @BIT12,R1 ISET PARITY ERROR TEST MASK 
3585 020202 030100 BIT R1,RO ;CHECK FOR PARITY ERROR FLAG 
3586 020204 001403 BEG ag ;BR IF NOT SET 
35867 020206 004737 020270 JSR PC MSG ;REPORT PARITY ERROR 
3588 020212 020316 MP AR 
35869 020214 006301 4$: ASL Ri ;SHIFT MASK TO TEST “FR” FLAG 
3590 020216 030100 BIT R1,RO _ FOR FRAMING ERROR FLAG 
3591 020220 001403 BEQ S$ IF NOT SET 
3592 020222 004737 020270 JSR PC .MSG ;REPSORT FRAMING ERROR 
3593 020226 020327 MFR 
3594 020230 006301 S$: ASL Ri ;SHIFT MASK TO TEST “OR” FLAG 
3595 020232 030100 BIT R1,RO i TEST FOR OVERFLOW ERROR 
3596 020234 001403 BEG 6$ ;6BR IF NOT SET 
3597 020236 004737 020270 JSR PC .MSG sREPORT OVERFLOW ERROR 
3598 020242 020341 MOR 
3599 020244 042700 000200 6$: BIC @BIT7,RO ;CLEAR ANY PARITY BIT 
3600 020250 022700 000003 CMP @3,R0 ;WAS INPUT CONTROL -C 
3601 020254 001337 BNE 3% ;BR IF IS NOT 
3602 020256 004737 020270 JSR PC .MSG ;REPORT PROGRAM STOP 
3603 020262 020354 MSTOP 
3604 020264 000000 HALT ;END OF TEST HALT 
3605 020266 000707 Be ECHO ;AFTER END OF TEST HALT 
ao ; PRESS CONTINUE TO RESTART ECHO TEST 
3608 020270 013600 MSG: MOV aC SP) ,RO ;PICK UP MESSAGE POINTER 
3609 020272 062746 000002 ADD @2,-CSP) ;ADJUST RETURN PC 
3610 020276 105773 000004 WAIT:  TSTB @4(R3) ;WAIT FOR XMIT DONE 
3611 020302 100375 BPL WAIT 
3612 020304 112073 000006 MOVB CRO), @6CR3) ;SEND CHARACTER 
3613 020310 105710 TSTB CRO) :I1S THIS END OF MESSAGE? 
3614 020312 001371 BNE WAIT ;B8R IF NOT 
— 020314 000207 RTS PC ; RETURN 


3617 020316 005015 — 044522 MPAR: -ASCIZ <CR><LF>/PARITY/ 


ET ET FE ES 
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3619 0203527 015 0435012 
3620 020334 044515 045516 
3621 020341 015 047412 
3622 020346 043122 047514 
3623 020554 iS 0521235 
3624 020362 000 


040522 
000 


042526 
000127 
050117 


MACY11 30(1046) O4-JAN-85 11:58 P 7a 
ECHO TEST _ 


MFR: 
MOR : 


MSTOP: 


IK / 


.ASCIZ <CR><LF>/FRAMING/ 
-ASCIZ <CR><LF>/OVERFLOW/ 
-ASCIZ <CR><LF>/STOP/ 


SEQ 0088 
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020364 


012737 
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000176 
000174 
000020 


002770 
003000 


— -— eee eee 


001040 
001042 
160432 


L 
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ECHO T 


.EVEN 
.SBTTL TERMINAL OUTPUT TEST 


MEITIIIIITI TT IIIT IIiTTitTiitiitittiittiriiiitiitiiiiiiriririririrryTTTs 
:#THIS ROUTINE WILL OUTPUT ALL WRITABLE CHARACTERS FOR THE 
s#THE OCTAL CODE O40 --> 377 
3#32 CHARACTERS ARE PRINTED ON EACH LINE 
OTHE PATTERN IS REPEATED EVERY THREE LINES 
;* 

Merrit itiiitiiiititiitiiiitiiiiiiitiittitiiitiiitititiititTtTtTitTt 


OUTTST: i @SWREG , SAR sSET UP FOR SOFTWARE SWITCH REGISTER 


@DISPREG , DISPLAY sAND DISPLAY REGISTER 

BIT @BIT4, SSWR sCHECK IF BIT4 SET IN SWITCH REG 

BEQ i$ sIF NOT THEN SELECT SLU1 

“4g — R3 sIF BIT4 SET THEN SELECT SLU2 
1$: MOV @CRCSR, RS sSELECT SLU1 CTHIS IS DEFAULT DEVICE) 
2s: RESET ;CLEAR THE WORLD 
3$: MOV #40 ,R1 sLOAD FIRST WRITABLE CHARACTER 
4%: MOV @40,RO sLOAD CHAR COUNT PER LINE 
5$ = — SWAIT FOR DONE 

MOV R1,86(R3) ; TRANSMIT A CHARACTER 

INCB Ri s INCREMENT CHARACTER CODE 

DEC RO s;DECREMENT CHAR COUNT 

BNE 5$ ;6R IF LINE NOT COMPLETE 

JSR PC .MSG ;SSUE CR,LINE FEED 

$CRLF 

TST6 acR3) sANY CHARACTER RECEIVED? 

63 ;BR IF YES 
ol = 7,R1 iar we ONE PASS OF WRITABLE CHARACTERS? 
' 

BR A$ sIF NOT WRITE NEXT LINE 
63: CLR 82(R3) ;CLEAR RECEIVER 

HALT ;STOP TEST 

BR OUTTST ;sRESTART TEST IF CONTINUED 


SEQ OORS 


ee ee ee we et te ee 


3667 


3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3676 
3679 


: 
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EMS: 


EM6: 


EM7: 


EM11: 


EM13: 


EM14: 


EM15: 


EM16: 


a ee 


EM17: 


MACY11 30( 1046) 
TERMINAL OUTPUT 


.ASCIZ 


-ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


-ASCIZ 


. ASCIZ 


.ASCIZ 


.ASCIZ 


Pact 7# 
TEST SEQ 0090 


/SLUL TCSR DONE NOT SET WITH RESET, 


/SLU1 RCSR DID NOT RETURN SSYNC/ 


/SLU1 RBUF DID NOT RETURN SSYNC/ 


/CAN NOT 3ET BIT2 OF SLUI TCSR/ 


/RESET DID NOT CLEAR BIT2 OF SLU1 TCSR/ 


/BIT6 OF SLU] TCSR NOT CLEAR AFTER RESET 


/SLUL XMIT INTERRUPTED WITH PRIORITY 7/ 


/CAN NOT SET BIT6 OF SLUI1 TCSR/ 


/CAN NOT CLEAR BIT6 OF SLU1 TCSR/ 


- a a ee —— 


OFB.P11 


04-JAN-85 11:44 


ye A he 11/24 OPTIONS DIAGNOSTIC 


020124 
047516 
040505 


an Ub 2 30( 1046 ) 


. 
| 
! f 


04-JAN-85 11:58 PAGE 77 


TERMINAL OUTPUT TEST 


EM2O: 


EM21: 


EM24: 


EM25S: 


EM26: 


EM27: 


EM30: 


.ASCIZ 


.ASCIZ 


.ASCIZ 


. ASCIZ 


. ASCIZ 


-ASCIZ 


. ASCIZ 


.ASCIZ 


.ASCIZ 


/RESET DID NOT CLEAR BIT6 OF SLU1 TCSR/ 


/BIT6 OF SLU1 RCSR NOT CLEAR AFTER RESET/ 


/SLU1 RCVR INTERRUPT WITH PRIORITY 7/ 


/CAN NOT SET BIT6 OF SLU1 RCSR/ 


/CAN NOT CLEAR BIT6 OF SLU1 RCSR/ 


/CAN NOT CLEAR BIT6 OF SLU1 RCSR WITH RESET/ 


/SLU1 RECEIVER DONE NEVER SET/ 


/RESET DIO NOT CLEAR SLU1 RCVR DONE/ 


/READING SLU1 RBUF DID NOT CLEAR RCVR DON® / 


SEQ 0091 


CMMOFBO 11/26 
COFB Pi 







OPTIONS DIAGNOSTIC 
04-JAM-65 11:44 


me ene ee ee een =: 


053105 
042516 


MACTIi 3001046) 
TERMINAL QUTPUT 


EMSi: .AsciZ 


EMSS: -ASCIZ 


EMS4: .ASCIZ 


EMSS: .ASCIZ 
EM36: .ASCIZ 
EMS7:  .ASCIZ 
Em40: .ASCIZ 


b& 
O4-JAN-85 11:58 PAGE 7A 
TES? 


7S.U2 TCSR DID NOT RETURN SSYNC/ 
/SiU2 TBUF DID NOT RETURN SSYNC/ 


/SLU2 TCSR DONE NOT CLEARED WITH TBUF FULL / 


/SLU2 TCSR DONE NOT SET AFTER TRANSMIT 


/SLU2 TCSR DONE NOT SET WITH RESET/ 


/SLU2 RCSR DIO NOT RETURN SSYNC/ 


/SLU2 RBUF DID NOT RETURN SSYNC/ 


/BITO OF SLU2 TCSR NOT CLEAR AFTER RESET/ 


/CAN NOT SET BITO OF SLU2 TCSR/ 


< Pas 


1 30(1046) O4-JAN-85 11:58 PAGE 79 
NAL OUTPUT TEST 






CUKOFBO 11/24 OPTIONS DIAGNOSTIC MACY1 
CUKDFB P11 04-JAN-85 11:44 TERMI 


-ASCIZ /CAN NOT CLEAR BITO OF SiU2 TCSR/ 


-ASCIZ /RESET DID NOT CLEAR BITO OF SLU2 TCSR/ 


-ASCIZ /BIT6 OF SLU2 TCSR NOT CLEAR AFTER RESET/ 


-ASCIZ /SLU2 XMIT INTERRUPTED WITH PRIORITY 7/7 


-ASCIZ /CAN NOT SET BIT6 OF SLU2 TCSR/ 


-ASCIZ /CAN NOT CLEAR BIT6 OF SLU2 TCSR/ 


-ASCIZ /RESET DID NOT CLEAR BIT6 OF SLU2 TCSR/ 


-ASCIZ /B8IT6 OF SLU2 RCSR NOT CLEAR AFTER RESET/ 





CUKDFBO 11/24 OPTIONS DIAGNOSTIC 


Cc 


JKOFE . 


Pil 


ge geeeeesesesesessecesecee 
pibeuucegsceccceceeccresuugren nes 


04-JAN-85 11:44 


051040 


me me me ee ee 


MACY1i 30( 1046) 
TERMINAL OUTPUT 


EMS2: 


EMSS: 


EM57: 


.ASCIZ 


-ASCIZ 


-ASCIZ 


.ASCIZ 


.ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


| } es 
04-JAN-85 11:58 PAGE 40 
TES!’ 


/SLU2 RCVR INTERRUPT WITH PRIORITY ” 


/CAN NOT SET BIT6 OF SLU2 RCSR/ 


/CAN NOT CLEAR BIT6 OF SLU2 RCSR/ 


/CAN NOT CLEAR BIT6 OF SLU2 RCSR WITH RESET/ 


/SLU2 RECEIVER DONE NEVER SET/ 


/RESET DID NOT CLEAR SLU2 RCVR DONE/ 


/READING SLU2 RBUF DID NOT CLEAR RCVR DONE/ 


/LKS DID NOT RETURN SSYNC/ 


/BIT6 OF .KS NOT CLEAR AFTER RESET / 


x OPTIONS DIAGNOSTIC 
ll 


C 


JKDFB 


04-JAN-85 11:44 





MACY11 30( 1046) 
TERMINAL OUTPUT 


EM63: 


EM64 : 


EN7O: 


EM71: 


EN7e: 


EM74: 


EN7S: 


-ASCTZ 


.ASCIZ 


-ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


-ASCIZ 


.ASCIZ 


-ASCIZ 


.ASCIZ 


CH 


04-JAN-65 11:58 PAGE 81 
TES? 


/LKS INTERRUPT WITH PRIORITY 7/ 


/CAN NOT SET BIT6 OF LKS/ 


/CAN NOT CLEAR BIT6 OF LKS/ 


/RESET OID NOT CLEAR BITE OF LKS/ 


/BIT7 OF LKS NOT SET AFTER RESET/ 


/CAN NOT CLEAR BIT7 OF LKS/ 


/BIT7 CF LKS DOES NOT SET/ 


/WRITING TO ONE INTERNAL ADDRESS MODIFIED ANOTHER/ 


/SLUL XMIT INTERRUPTS WHEN DISABLED/ 


/SLU1 XMIT DID NOT INTERRUPT/ 


CUKDFBO 11/24 OPTIONS DIAGNOSTIC 


CUKDFB 


Pll 


04-JAN-85 11:44 


MACY11 30( 1046) 


es 


04-JAN-85 11:58 PAGE 62 


TERMINAL OUTPUT TEST 


EMN76: 


EM77: 


EM100: 


EM101: 


EM102: 


EM103: 


EM104: 


EM105: 


EM106: 


-ASCIZ 


~ASCIZ 


-ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/SLU1 XMIT INTERRUPT AT PRIORITY 7/ 


/SLU1L XMIT INTERRUPTS WITH ENABLE CLEAR, 


/SLU1 XMIT DID NOT INTERRUPT, 


/SLUL XMIT RE -INTERRUPTED/ 


/LOADING SLU1 TBUF DID NOT CLEAR INTERRUPT, 


/SLU1 RCVR INTERRUPTS WITH ENABLE CLEAR/ 


/SLU1 RCVR DIO NOT INTERRUPT 


/SLU1 RCVR INTERRUPTS AT PRIORITY 7/ 


/SLU1 RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR/ 


CJKOF BO 
C UK 


DFB.P1 


11/24 OP 
i O48 


-JAN-85 11:44 


TIONS DIAGNOSTIC 





MACY11 30( 1046) 
TERMINAL OUTPUT 


—EM107: 


EM110: 


EM111: 


EMi1i2: 


EM113: 


EM114: 


EM115: 


EM116: 


EM117: 


-ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


-ASCIZ 


.ASCIZ 


.ASCIZ 


tlre 


04-JAN-85 11:58 PAGE 8% 
TES? 


/SLU1L RCVR DID NOT INTERRUPT, 


/SLU1 RECEIVER RE-INTERRUPTED/ 


/SLU1 READING RBUF DID NOT CLEAR INTERRUPT 


/RESET OID NOT CLEAR SLU1 RCVR INTERRUPT / 


/SLU1 ‘OR’ FLAG DID NOT SET/ 


/SLU1L ‘ERROR’ NOT SET WITH ‘OR’ FLAG/ 


/DATA COMPARE ERROR/ 


/SLU2 XMIT INTERRUPTS WHEN DIS4BLED/ 


/SLU2 XMIT DID NOT INTERRUPT / 


ee ease ae ~~ < oe 


SEQ 0097 


CUKDFBO 11/24 OPTIONS DIAGNOSTIC 


Cc 


JKDFB P11 


025321 
326 


ee re ce 


04-JAN-85 11:44 


MO 


MACY11 30(1046) O4-JAN-85 11:58 PAGE 484 


TERMINAL OUTPUT 


EM120: 


EM121: 


EMi2e: 


EM123: 


EM124: 


EmM125: 


EM126: 


EM127: 


EM130: 


-ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


.ASCIZ 


TEST 
/SLU2 XMIT INTERRUPT AT PRIORITY 7, 


/SLU2 XMIT INTERRUPTS WITH ENABLE CLEAR, 


/SLU2 XMIT DID NOT INTERRUPT / 


/SLU2 XMIT RE-INTERRUPTED/ 


/LCADING SLU2 TBUF DID NOT CLEAR INTERRUPT / 


/SLU2 RCVR INTERRUPTS WITH ENABLE CLEAR/ 


/SLU2 RCVR DID NOT INTERRUPT/ 


/SLU2 RCVR INTERRUPTS AT PRIORITY 7/ 


/SLU2 RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR/ 


SEQ 0098 


1 
MACY11 30(1046) 04-JAN-85 11:58 PAGE 85 


CUKDFBO 11/24 OPTIONS DIAGNOSTIC 
TERMINAL OUTPUT TEST 


5F-G 30099 


Cc 


JKDFB.P11 


04-JAN-85 11:44 


046105 


EM131: 


EM13e: 


EM133: 


EM134: 


EM135: 


EM136: 


—M137: 


EM140: 


EM141: 


-ASCIZ 


.ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


. ASCIZ 


/SLU2 RCVR DID NOT INTERRUPT / 


/SLU2 RECEIVER RE-INTERRUPTED/ 


/SLU2 READING RBUF DID NOT CLEAR INTERRUPT 


/RESET DID NOT CLEAR SLU2 RCVR INTERRUPT 


/SLU2 ‘OR' FLAG DID NOT SET/ 


/SLU2 ‘ERROR’ NOT SET WITH ‘OR’ FLAG/ 


/SLU2 BREAK DID NOT TRANSMIT ALL ZEROES/ 


/BREAK DID NOT SET FRAMING ERROR/ 


/SLU2 ‘ERROR’ NOT SET WITH ‘FR’ FLAG/ 


. a eo 


CUKDFBO 11/24 OPTIONS DIAGNOSTIC 


Cc 


JKDFB . 


4227 


Pil 


04-JAN-85 11:44 


046106 


MACY11 30( 1046) 
TERMINAL OUTPUT 


EM142: 


EM143: 


EM144: 


EM145: 


EM146: 


—EM147: 


EM150: 


EM151: 


EMiS2: 


EM153: 


.ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


-ASCIZ 


.ASCIZ 


-ASCIZ 


.ASCIZ 


.ASCIZ 


JS 


04-JAN-65 11:58 PAGE 86 
TEST 


/DATA COMPARE ERROR WITH CABLE / 


/RTC INTERRUPT AT PRIORITY 7/ 


/RTC INTERRUPTS WHEN DISABLED/ 


/RTC INTERRUPT DID NOT OCCUR/ 


/RTC INTERRUPT DID NOT OCCUR/ 


/RTC DOUBLE INTERRUPT/ 


/RESET DID NOT CLEAR RTC INTERRUPT / 


/RTC INTERRUPT DID NOT CLEAR WITH BIT? OF LKS/ 


/CLOCK REPEATABILITY ERROR/ 


/SLU1 RECEIVER STATUS ERROR/ 





SEQ 0100 


a ee 


CUKDFBO 11/24 OPTIONS DIAGNOSTIC 
CUKDFB.P11 


027155 


027614 


123 
042522 
951105 
052524 


04-JAN-85 11:44 


MACY11 30( 1046) 


04 - JAN-85 


TERMINAL OUTPUT TEST 
/SLU2 RECEIVER STATUS ERROR/ 


EM154: 


EM15SS: 


—EM156: 


EM157: 


EM160: 


DH7: 


DH32: 


DH72: 


.ASCIZ 


.ASCIZ 


-ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


-ASCIZ 


.ASCIZ 


INO 


11:58 PAGE 87 


ZINCORRECT RECEIVE COUNT SLU1/ 


/SLU1 DATA COMPARE ERROR IN EXERCISER/ 


INCORRECT RECFIVE COUNT SLU2/ 


/SLU2 DATA COMPARE ERROR IN EXERCISER/ 


/TRAP CATCHER/ 


/TEST@ 


/TEST®@ 


/TEST@ 


/TEST@ 


/TEST® 


/TEST® 


ERR PC 


ERR PC 


ERR PC 


ERR PC 


ERR PC 


ERR PC 


TCSR/ 


RCSR/ 


RBUF / 


TBUF / 


LKS/ 


GOAOR 


BDADR GDDAT 


BODAT/ 


SE@ 0101 


= 
MACY1i 3O(1046) O4-JAN-85 11:58 PAGE 88 


CUKDFBO 11/24 OPTIONS DIAGNOSTIC 
CUKOFB.P11 TERMINAL OUTPUT TES 


04-JAN-865 11:44 


> ee — eee ee - 


A os RZ — 
— << . een _—— - 


002774 


DH115: 


DH137: 


DH142: 


DH1S2: 


OH155: 


DH161: 


.ASCIZ 


.ASCIZ 


.ASCIZ 


.ASCIZ 


-ASCIZ 


.ASCIZ 


.ASCIZ 


/TEST®@ 


/TEST@ 


/TEST@ 


/TESTO 


/TESTO 


/TEST®@ 


ERR PC. 


ERR PC 


ERR PC 


ERR PC 


ERR PC 


ERR PC 


RCSR 


RCSR 


LKS 


RCSR 


RCSR 


<CR><LF >/CUKDF -B/ 


<CRLF > 


$TESTN, SERRPC ,CTCSR,O 
$TESTN, SERRPC ,CRCSR,.O 
$TESTN, SERRPC ,CRBUF ,O 
$TESTN, SERRPC,TCSR,O 


GOOD 


DATA/ 


BAD/ 


CNT1 


TRANS 


OLDPC 


BAD / 


CNT2/ 


RCV/ 


TRAP ADR/ 


ee ee ee 


ne 


ee eee 


CUKOF BO 
CUKDF 


B.P1il 


-JAN-85 11:44 


001104 
000000 


001104 


000000 
001104 


000000 
001104 
000000 


001016 
001016 
001016 
001016 


015116 


11/24 OPTIONS DIAGNOSTIC 
04 il 


002776 
002770 
002772 
003010 


001020 
001026 


003000 
000000 
002770 
001024 
003010 
000000 
003000 
000000 
002770 
000000 
002770 
000000 


MACY11 30( 1046) 


ie 
04-JAN-685 11:58 PAGE 89 


TERMINAL OUTPUT TEST 


OT3e: 
OT36: 
OT3?7: 
DT61: 
OT72: 


OT115: 
O0T137: 
0T142: 
OT1Se: 
DT15S: 
O0T157: 
O0T161: 


BUF 1: 
BUF 2: 


seeEREEEE FREES 


$TESTN, $ERRPC, TBUF ,O 
$TESTN, SERRPC ,RCSR,O 

$TESTN, $ERRPC ,RBUF ,O 

$TESTN, SERRPC ,LKS,O 

$TESTN, $ERRPC, $GDADK, $BDADR, $GDDAT, $BDDAT , 0 


$TESTN, SERRPC ,,CRCSR, $GDDAT , $BDDAT ,O 
$TESTN, SERRPC ,RCSR, $BDDAT ,O 

$TESTN, SERRPC, $GODAT , $BDDAT ,O 
$TESTN, SERRPC ,LKS,FIRST,SECND,O 
$STESTN, SERRPC ,CRCSR, XMTCT1,RECCT1,0 
$TESTN, SERRPC ,RCSR, XMTCT2,RECCT2,0 
$TESTN, SERRPC ,RCSR,OLDPC ,BDOVECT ,O 


200 ;SLU1 INPUT BUFFER FOR BLAST TEST 
200 ;SLU2 INPIT BUFFER FOR BLAST TEST 


SEQ 0103 


eee ee 


N& 


CUKDFBO 11/24 OPTIONS DIAGNOSTIC MACY11 30(1046) 04-JAN-85 11:58 PAGE 9: 
CKOFB.P11 O04-JAN-85 11:44 SYMBOL TABLE a 
ABASE = 176500 BITO = 000001 DH142 027760 EM125 025571 EM43 (022421 
ACDW1 = 000000 BITOO = 000001 DH152 030014 EM126 025640 EM44 =: 022467 
ACDW2 = 000000 BITO1 = 000002 DH155 030061 EM127 025674 EM45 022537 
ACPUOP= 000000 BITO2 = 000004 DH161 030125 EM13 020706 EM46 =: 022605 
ADDWO = 000000 BITO3 = 000010 027530 EM130 025737 EM47 022643 
ADOW1 = 000000 BITO4 = 000020 DH5 027431 EM131 EMS 020510 
ADOW10= 000000 BITOS = 000040 DH6 027456 EM132 026054 EMSO ©: 022703 
ADDW11= 000000 BIT06 = 000100 DH61 027555 EM133 026111 EMS1 022751 
ADDW12= 000000 BITO7 = 000200 OH7 02750 EM134 026163 023021 
ADDW13= 000002 BITO8 = 000400 ON72 027601 EM13S 026233 EMS3 5 
ADDW14= 000000 BITO9 = 001000 DISPLA 001042 EM136 026266 023123 
ADDW15= 000000 BITl = DISPRE 000174 EM137 026332 EMSS 023163 
ADDW2 = 000000 BIT10 = 002000 = 177570 EM14 7 
ADDWS = 000000 BIT11 = 07115 030330 EM140 026401 EMS7 023273 
ADDW4 = 000000 BIT12 = 010000 017137 030 EM141 026441 EME 
ADOWS = 000000 BIT13 = 020000 01142 030356 EM142 026505 EM60 023336 
| ADOW6 = 000000 BIT14 = 040000 OT152 030370 EM143 026543 EM61 023410 
ADOW7 = 000000 BIT15 = 100000 OT155 030404 EM144 026577 EM62 1 
ADDWB = 000000 BIT2 = 000004 0T157 030420 EM145 EM63 023503 
ADOW9 = 000000 BIT3 = 000010 DT161 030434 EM146 026670 023541 
ADEVCT= 000000 BIT4 - 0131 030242 EM147 026724 EM6S 023571 
ADEVM = 000000 BITS = 000040 OT32 030252 EMIS 021024 EM66 023623 
AENV = 000000 BIT6 = 000100 OT36 030262 EM150 026751 EM67 023663 
AENVM = 000000 BIT7 - 0137 030272 EM151 027013 EM7 
AFATAL= 000000 BIT8 = 000400 OTS 030212 EM152 027070 EM70 023723 
AMADR1= 000000 BIT9 = 001000 DT6 039222 EM153 027122 EM71 023755 
AMADR2= 000000 BLAST 013600 0161 030302 EM154 027155 EM72 024006 
AMADR3= 000000 T 000003 DT7 030232 EM155 0272106 EM74 024067 
AMADR4= 000000 BPTVEC= 000014 0172 030312 EM156 027245 EM75 024132 
AMAMS1= 000000 BUF1 030450 ECHO 020106 EM157 027312 EM76 024166 
AMAMS2= 000000 031050 EMTVEC= 000030 EM16 021072 EM77 024230 
AMAMS3= 000000 CATCH 015070 EM100 024277 EM160 027347 ERRVEC= 000004 
AMAMS4= 000000 CHECK1 014524 EM101 024333 EM161 027414 FINIE 01 
AMSGAD= 000000 CHECK2 014604 EM102 024364 EM17 021130 FIRST 013574 
AMSGLG= 000000 SWR = 104407 EM103 024436 EM20 021170 GTSWR = 104406 
AMSGTY= 000000 CMPARE 013532 EM104 024505 EM21 021236 HT == 1 
AMTYP1= 000000 006510 EM105 024541 EM22 021306 ID 003700 
AMTYP2= 000000 CONT41 012330 EM106 EM23 021352 014400 
AMTYP3= 000000 COUNT 014736 EM107 024665 EM24 021410 IOTVEC= 000020 
AMTYP4= 000000 CR = = 000015 EM11 EM25 021450 LF = 000012 
APASS = 000000 003002 EM110 024721 EM26 021523 LKS 003010 
APRIOR= 000000 CRCSR 00 EM111 024 EM27 0 LTCIT 012544 
APTCSU= 000040 CRLF = 000200 EM112 025030 EM30 021623 LTCRT 006152 
APTENV= 000001 003024 EM113 025100 EM31 021675 MFR 020327 
APTSIZ= CRVECT 003022 EM114 025133 EM32 0 021734 020341 
TSPO= 000100 CT EM115 025177 EM33. 021773 MPAR 020316 
ASWREG= CTCSR 003004 EM116 025222 EM34. 022045 MSG 020270 
ATESTN= 000000 CTPSW 003030 EM1i7 025265 EM3S =-« 022113 MSTOP 020354 
AUNIT = 000000 CTVECT EM120 025321 EM36 022155 M1 030176 
WR = 000400 004602 EM121 025363 EM37 022214 M2 030210 
AVECT1= 000300 DDISP = 177570 EM122 025432 EM40 ©: 022253 OLDPC 015114 
| AVECT2= 000000 DH115 027657 EM123 025466 EM41 022323 OUTTST 020364 


| BOVECT 015116 DH137 027723 EM124 025517 EM42 022361 PIRQ * 177772 





CMOFBO 11/24 
CHOFB Fis 


P IRQVE 
PRO 





SWO 0 * 000001 
SWOO = 000001 
SWOl = 000002 
SWwO2 * 

SWOS + 000010 
SWO4 = 000020 
SWOS = 000040 
SWO6 = 000100 
SWO7 = 000200 
~S$WO6 = + 000400 
SWO9 == 001000 
SWi * 000002 
SW10 = 002000 
SW1l1 * 004000 
SWi2 * 010000 
SW13 = 020000 
SW14 = 040000 





AGS TIC 

11:44 
suis *- 
Su2 * 000006 
swS) 0606 000010 
Sue . 
Sw 6 Cts 
Sw6 20 = s=«00100 
Sw7 0s =«~«GOO2Z00 
swe 4 = 0004600 
swo9 0s «4001000 
TBITVE= 000014 
Tour 


me a 





bo 
MACYII 30010466) O4-JAN-85 11:58 PAGE 9? 
SYPBOL TABLE 


000005 
017777 





017772 








i = 


SEG O10" 


CUKDFBO 11/24 OPTIONS DIAGNOSTIC 
Cumx i 04 - 11:44 


OFB.F1 JAN - 85S 
sTSTNM i STYPEX 
STTYIN 017762 $TYPOC 
$TYPDS 017016 $TYPON 
sTYPE 016254 sTYPOS 
STYPEC 016446 SUNIT 
ABS. 031450 000 


ERRORS DETECTED: O 


CUKOFB , CUKDFB/SOL /NL : TOC =SYSMAC 
RUN-TIME: 18 20 .6 SECONDS 
RUN-TIME RATIO: 92/40*2.2 

CORE USED: 43K (86 PAGES) 


MACY11 30(1046) 04-JAN-85 
SYMBOL. TABLE 
016566 $UNITM 000510 
016614 sUSWR =s«O1 124 
016650 $VECTi 001150 
016570 sVECT2 001152 
001112 $xOFF = 000023 
. Sa, CUKOFB.P11 


C9 


11:58 PAGE 9% 


$XON * 000021 
SxTSTR 015626 
$8GET4= G00000 
SOFTLi 017013 
. * 031450 


. SERRT 
‘¥ 


901160 
000500 


SEQ 0106 


- — + << —— _- = 


